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IDENTIFICATION 


PRODUCT CODE: AC=9482B-MC 

PRODUCT NAME : CZVSABO vVS60 INST TST PT1 
DAIE: JUNE 1979 

MAINTAINER: DIAGNOSTIC ENGINEERING 
AUTHORS : R. SHOOP & R. MOORE 


COPYRIGHT (C) 1976, 1979 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY 
ON A SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH 
THE INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS 
SOFTWARE, OR ANY OTHER COPIES THEREOF, MAY NOT BE PRO- 
VIDED OR OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON 
EXCEPT FOR USE ON SUCH SYSTEM AND TO ONE WHO AGREES TO 
THESE LICENSE TERMS. TITLE TO AND OWNERSHIP OF THE 
SOFTWARE SHALL AT ALL TIMES REMAIN IN DEC. 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE 
WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED AS A COM- 
MITMENT BY DIGITAL EQUIPMENT CORPORATION. 


DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY 
Rg SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY 
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ABSTRACT 


THIS PROGRAM IS THE FIRST OF A SERIES DESIGNED TO TEST STRICTLY LOGIC FUNCTIONS 
OF THE VS60 DISPLAY PROCESSOR. THIS DIAGNOSTIC TESTS, READING AND WRITING 

OF VS60 BUS REGISTERS, NON GRAPHIC TYPE INSTRUCTIONS AND SEVERAL 

INTERRUPT CONDITIONS. THERE IS NO FULL SPEED VS60 TESTING IN THIS TEST. 
MAINTENANCE MODES 1, 2 OR 3 ARE USED. 


*s* REV B -- FIXES TIMING PROBLEM IN TEST 136 *** 


REQUIREMENTS 


EQUIPMENT 

A. PDP=11 COMPUTER WITH AT LEAST 8K OF MEMORY 

B. 1/0 TERMINAL (1.£. ASR33 TTY) 

C. VS60 DISPLAY PROCESSOR 

STORAGE 

THIS PROGRAM OCCUPIES LOWER 8k OF MEMORY. 

LOADING PROCEDURE 

NORMAL PROCEDURE FOR LOADING A BINARY PROGRAM INTO MEMORY SHOULD 
BE FOLLOWED. 


STARTING PROCEDURE 


STARTING ADDRESS 200 


LOADING ADDRESS 200 AND STARTING WILL IDENTIFY THE TEST, INITIALIZE 
THE SYSTEM, AND BEGIN TESTING. 


RESTART ADDRESS 204 


‘LOADING ADDRESS 204 AND STARTING WILL INITIALIZE THE SYSTEM AND 
BEGIN TESTING. 


SEQ 0005 





5.0 


6.0 


6.2 


SWITCH REGISTER SETTINGS iyilZs 


See eo eee ne eee ee eS 4 | “ 


SWITCH FUNCTION OF 
Sail 5=1 HALT ON ERROR 

Swi4=1 LOOP ON: TEST 

Swi 3=1 INHIBIT ERROR TYPEOUTS 

SwW12=1 HALT AT END OF DIAGNOSTIC 

Sw11=1 INHIBIT ITERATIONS ~ NORMALLY 2000(8) AFTER 1ST PASS 
Sw10=1 BELL ON ERROR 

SWO9=1 LOOP ON ERROR 

SWwO8=1 LOOP ON TEST IN SWR<7:0> 


ERROR COMMENT 


ALL ERRORS ARE ACCOMPANIED WITH AN ENGLISH LANGUAGE DESCRIPTIVE 
COMMENT AS TO THE TYPE OF FAILURE. FURTHER QUALIFICATION 

OF THE ERROR CAN BE OBTAINED IF NCEDED FROM THE COMMENT AT THE 
ERROR PC OF THE LISTING. 


ERROR DATA 


PC LISTING ADDRESS WHERE THE ERROR WAS DETECTED. 

TS TNUM TEST NUMBER WHERE THE ERROR OCCURRED. 

BUSADRS DISPLAY BUS ADDRESS WHERE THE RESULTANT DATA WAS EXPECTED 
=XPCT DATA THAT WAS EXPECTED. 

RCVD DATA THAT WAS RECEIVED. 


- 


SEu 0004 








7.0 


7.1 


7.2 


fun 


7.4 


9.2 


MISCELLANEOUS 


Se we ee SS a ee 


VS60 BUS/VECTOR ADDRESS MODIFICATION: 
MODIFY LOCATION ‘$VECT1" IF BASE VECTOR ADDRESS IS NOT 320. 
MODIFY LOCATION ‘S$BASE' IF BASE BUS ADDRESS IS NOT 172000. 


NOTE: A RESTART IS REQUIRED AFTER THE ABOVE ADDRESS MODIFICATION, 
THE ABOVE LOCATIONS ARE LOCATED IN THE ‘APT MAILBOX-ETABLE' 


XXDP/APT NOTES: 

THIS DIAGNOSTIC IS CHAINABLE UNDER XXDP. 

THIS DIAGNOSTIN INCLUDES THE "APT" SOFTWARE HOOKS HOWEVER, THEY 
HAVE NOT BEEN TESTED. 


POWER FAIL: 
A POWER FAILURE WILL CAUSE A RESTART MESSAGE ON POWER UP AT 
WHICH TIME THE PROGRAM IS RESTARTED AT THE BEGINNING. 


SINGLE VS60 TESTING: 
THIS DIAGNOSTIC DOES NOT TEST MULTIPLE VS60°S. 


EXECUTION TIME 


e 


EXECUTION TIME RANGES FROM ABOUT 3 SECONDS WITH NO ITERATIONS 
TO ABOUT 2 MINUTES WITH ITERATIONS ENABLED. AN ‘END PASS* MESSAGE 
IS TYPED EACH PASS THRU THE DIAGNOSTIC. 


PROGRAM TEST DESCRIPTIONS 


GENERAL 


THE TABLE OF CONTENTS AT THE BEGINNING OF THE LISTING CONTAINS 

A BRIEF DESCIPTION OF EACH TEST. IT WILL ALSO IDENTIFY WHAT MAINTENANCE 
MODE A PARTICULAR TEST USES. THE COMMENT FIELD IN EACH TEST 

ALSO CAN BE HELPFUL IN UNDERSTANDING A TEST. 


TYPICAL TEST SEQUENCE 


MOST TESTS ARE ORGANIZED AROUND THE FOLLOWING FORMAT: 

A MAINTENANCE MODE SWITCH IS SET (SW1, 2 OR 3). THEN A VS60 REGISTER 
BUS REGISTER ADDRESS IS LOADED INTO LOCATION ‘S$8DADR* WHICH 

IS WHERE THE EXPECTED DATA WILL BE READ. NEXT STEP WILL BE TO LOAD THE 
EXPECTED DATA INTO LOCATION ‘$GDDAT'. THEN ONE OR MORE INSTRUCTIONS 

ARE LOADED STARTING AT LOCATION ‘BUFFER’. THE DISPLAY PC IS THEN LOADED 
WITH ADDRESS "*BUFFER* WHICH CAUSES AN NPR TO ‘BUFFER’. AT THE COMPLETION 
OF THE "NPR" A NUMBER OF RESUMES COULD BE ISSUED IF ADDITIONAL ‘NPRS' ARE 
REQUIRED FOR INSTRUCTIONS OR DATA. AT THIS TIME THE CONDITION 

UNDER TEST SHOULD HAVE BEEN SET UP AND AVAILABLE AT THE BUS ADDRESS 

SET UP_IN *S$BDADR*. THIS CONDITION IS USUALLY LOADED INTO LOCATION 
*SBDDAT* AND COMPARED TO THE EXPECTED RESULTS PREVIOUSLY SET UP 

IN '$GDDAT'. _IF AN ERROR IS DETECTED THEN AN ERROR TR (EMT) IS PREFURMED 
ACCORDING TO THE ITEM NUMBER IN THE ‘S$ERRTB’ (ERROR TABLE). 

THIS TABLE DIRECTS OR POINTS TO THE PERTINENT ‘TYPE OUT’ INFORMATION. 


w 


a 








10.0 LISTING 


PROGRAM LISTING FOLLOWS. 
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001100 


000011 
000012 
000015 
000200 
177776 
177774 
177772 
177570 
177570 
000000 
000001 
000002 
000003 
000004 


H 1 
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-TITLE C2VSA-B VS60 INSTRUCTION TEST PART 1 
;*COPYRIGHT (C) 1976 

:*DIGITAL EQUIPMENT CORP. 

“Seta hiatal MASS. 01754 


! #PROGRAM BY R. MOORE 
THIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
>*PACKAGE (MAINDEC-11-DZQAC-C3), JAN 19, 1977. 


"* 

> REV B -- FIXES TIMING HACK IN TEST 136 (G.P. JUNE '79). 
“SBTTL BASIC DEFINITIONS 

j*INITIAL ADDRESS OF THE STACK POINTER *** 1100 ««s 


STACK= 
-EQUIV EMT,ERROR sBASIC DEFINITION OF ERROR CALL 
SEQUIV IOT.SCOPE ‘BASIC DEFINITION OF SCOPE CALL 
3 *MISCELLANEOUS DEF IivITIONS 
HT= 11 ;:CODE FOR HORIZONTAL TAB 


LF= 12 2+ CODE FOR LINE FEED 

CR= 15 3;CODE FOR CARRIAGE RETURN 

CRLF= 200 >: CODE FOR CARRIAGE RETURN-LINE FEED 

PS= 177776 ;sPROCESSOR STATUS WORD 

-EQUIV PS,PSW 

STKLMT= 17777 ::STACK LIMIT REGISTER 

PIRQ= 177772 ;;PROGRAM INTERRUPT REQUEST REGISTER 
177570 3 zHARDWARE SWITCH REGISTER 


DSWR= 
DDISP= 177570 ; ;HARDWARE DISPLAY REGISTER 


;*GENERAL PURPOSE REGISTER DEFINITIONS 
RO= 20 ;;GENERAL REGISTER 


R1= %1 3: GENERAL REGISTER 
R2= %2 > GENERAL REGISTER 
R3= %3 ;:GENERAL REGISTER 
R4= 44 3;zGENERAL REGISTER 
R5= %5 ;:GENERAL REGISTER 
R6= %6 ; s GENERAL REGISTER 
R7= Fg ENERAL REGISTER 
SP= %6 +:STACK POINTER 
PC= $4 : PROGRAM COUNTER 
s*PRIORITY LEVEL DEFINITIONS 

PRO= 0 : PRIORITY LEVEL 0 
PR1= 40 ::PRIORITY LEVEL 1 
PR2= 100 ; PRIORITY LEVEL 2 
PR3= 140 : PRIORITY LEVEL 3 
PR4= 200 s PRIORITY LEVEL 4 
PRS= 240 > ;PRIORITY LEVEL 5 
PR6= 300 ::PRIORITY LEVEL 6 
PR7= 340 > PRIORITY LEVEL 7 


>«''SWITCH REGISTER’’ SWITCH DEFINITIONS 


Swi5= 100000 


{oS ee a, 


SEQ 0007 
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me a Bi a a at a od od od) 3 od od oS) oo 2) oh et ot SS HH I oe I J 
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29-MAY=79 


000002 
000001 


000004 


10:10 
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BASIC DEF INI TIONS 


Swi4= 40000 
Sw13= 20000 
Swi2= 10000 
Sw11= 4000 
Sw10= 2000 
Swo9= 1000 
SwO8= 400 
SwO7= 200 
SwO6= 100 
SwOS= 40 
Sw04= 20 
Sw03= 10 
SwO2= 4 
Swoi= 2 


BIT11= 400 
BIT10= 2000 
BITO9= 1000 
BITO8= 400 
BIT07= 200 
BITO6= 100 
BITO5= 40 
BIT04= 20 
BITO3= 10 
BITO2= 4 
BITO1= 2 
BITO0= 


“EQUIV BITOO.BITO 


7 *BASIC Pt I TRAP a a 
ERRVEC= 4 3; TIME OUT AND OTHER ERRORS 


SEQ 0008 


CZ7VSA=B VS60 INSTRUCTION TEST PART 1 
CZ 29-MAY~7 


VSAB.P11 -79 10:10 
(1) 000010 
1) , 000014 
(1): 000014 
(1) 000014 
is 000020 
ch) 000024 
CV), * 000030 
(1) 000034 
4a) 2 000060 
Wa), = 000064 
Nyay 700260 
; 20 — == 900320 


MACY11 3 
BASIC DE 


nrnnrreaonr 


PWRV 
EMTVEC= 
TRAPVEC 
TKVEC= 
TPVEC= 
PIRQVEC 


ABASE= 
AVECT1= 


06(1063) 


FINITIONS 


=34 


60 
64 


=240 


172000 
100320 


17=SEP=79 08:43 PAGE 1-2 


SEQ 0009 


cereale AND ILLEGAL INSTRUCTIONS 
7; TRACE TRAP 
; BREAKPOINT TRAP (BPT) 
3, INPUT/OUTPUT TRAP (IOT) **SCOPE** 
;;POWER FAIL 
Be amyl TRAP (EMT) **ERROR** 
3" 'TRAP'' TRAP 
:TTY KEYBOARD VECTOR 
SITTY PRINTER VECTOR 
; PROGRAM INTERRUPT REQUEST VECTOR 


; 1ST REGISTER ADDRESS (DISPLAY PC). 
; PRI (HI BYTE) AND VECTOR ( LO BYTE). 
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CZVSAB.P11 


’ 
ROE LLL OLE LLLP 


[a ee ae i ee ee a a 


nA RAR RARA 


=A.) 3 a SS SS oe 


COS FR FR FR FR FR RFR RRS 
— oo = 2 a ff) 


a a as ss sd SS SY YY) SS SS ss ss ss 


rion 


OOO ee eee ve ey Ye NAY Yew 


—9n 
bea Ad 


Bwvevvuvvvvve 


i i i i dd 


+I 
\ 


000046 
000052 


000024 
000044 


29-MAY=79 


000000 
001202 


10:10 OPERATIONAL SWITCH SETTINGS 
-SBTTL OPERATIONAL SWITCH SETTINGS ‘ 
SWITCH USE 


15 HALT ON ERROR 

14 LOOP ON TEST 

13 INHIBIT ERROR TYPEOUTS 
he HALT AT END OF DIAGNOSTIC 
10 
9 
8 


. . Ws. Oc GE Gu Ge Ge Ge 
e+e epee eee He 


INHIBIT Ln ease 


RROR 
LOOP ON TEST IN SWR<7:0> 


-SBTTL TRAP CATCHER 


20 
;*ALL UNUSED LOCATIONS FROM 4 - 776 CONTAIN A ‘'.+2,HALT"' 
;*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
LOCATION CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 


DISPREG: .WORD 0 3sSOFTWARE DISPLAY REGISTER 
SWREG: -WORD 0 ¢sSOFTWARE SWITCH REGISTER 
.SBTTL STARTING ADDRESS(ES) 
002110 JMP @ABEGIN ;;JUMP TO STARTING ADDRESS OF PROGRAM 
002472 JMP RESTRT ; RESTART ADDRESS 


-SBTTL ACT11 HOOKS 


ROR ROR ICICI OIOIOIOI OITA SISA ISS SA SSIS III ISSA ISAAC A. 
HOOKS REQUIRED BY ACT11 
-. SAVE PC 


SENDAD 321)SET LOC.46 TO ADDRESS OF SENDAD IN .$EOP 


WORD 0 222)SET LOC. Pes TO ZERO 
- =$SVPC zz RESTORE P 


.=1000 
-SBTTL APT PARAMETER BLOCK 


| {-aaddew madadaneabneeneetetspenetbesseonsennaneonetincnsiahens 
“SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT 
SIGUA IIIS SIIOIDISIOIDISIIOIDISISIDIOIIOIOIDIOIOIOIDIOIDIDIOIDIDIOIIOIDIDIOIOISIIDIDISI IDO IOIOII IDI 
~-$X=. =; ;SAVE CURRENT LOCATION 
.=24 22 OE POWER FAIL TO POINT TO START CF PROGRAM 
200 FOR APT START UP 
-=44 ::POINT TO APT INDIRECT ADDRESS PNTR. 
SAPTHDR ::POINT TO APT HEADER BLOCK 
-=.$X  ;;RESET LOCATION COUNTER 
PPT TTITTITIIITITIT TITTLE LLL ikke 
;SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
INTERFACE SPEC. 


$SAPTHD: 
$HIBTS: .WORD 0 ;TWO HIGH BITS OF 18 BIT MAILBOX ADDR. 
$MBADR: .WORD $MAIL ADDRESS OF APT MAILBOX (BITS 0-15) 


SEQ 0010 


L 
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CZ7VSAB.P11 29-MAY-79 10:10 APT PARAMETER BLOCK SEQ 0011 
(1) 001004 000012 $TSTM: .WORD 10. ;-RUN TIM OF LONGEST TEST 
(1) 001006 000036 $PASTM: .WORD 30. + ¢RUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 
(1) 001010 000000 $UNITM: .WORD 0 ADDITIONAL RUN TIME (SECS) OF A PASS FUR EACH ADDITIONAL UNIT 


Hh 001012 000033 -WORD  $ETEND=$MAIL/2 ;;LENGTH MAILBOX~£ TABLE (WORDS) 


CZVSA-B VS60 INSTRUCTION TEST PART 1 


CZVSAB.P11 


A RRR RAR RRR RRR RARA ARAB RAR ARR AAA AAA AAA AEP OOP LM PL 


ggggggsssessssessses 


29-MAY=79 


001100 
000000 
000 
000 
000000 
000000 
"0900 
001 
000000 
000000 
000000 
000000 
000000 
000000 
000 
000 
177570 
177570 
177560 
177562 
177564 
177566 
2 

O12 
000 
000000 
000000 
000000 
177607 
015 
000012 


000000 


10:10 


000377 
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J FAA RARER RARER ERE EERE REE REE REE REE REE REE EEE REE ERE 


;*THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 


;*USED IN THE PROGRAM. 


-=1100 
SCMTAG: 7¢START OF COMMON TAGS 
-WORD 0 
$TSTNM: .BYTE 0 7:CONTAINS THE Se NUMBER 
SERFLG: .BYTE 0 3:CONTAINS ERROR FLAG 
SICNT: .WORD 0 7-CONTAINS SUBTEST ITERATION COUNT 
$LPADR: .WORD 0 :sCONTAINS SCOPE LOOP ADDRESS 
SLPERR: .WORD 0 :CONTAINS SCOPE RETURN FOR ERRORS 
SERTTL: .WORD 0 ::CONTAINS TOTAL ERRORS DETECTED 
SITEMB: .BYTE 0 : = CONTAINS Ah CONTROL BYTE 
SERMAX: .BYTE 1 :sCONTAINS MAX. ERRORS PER TEST 
SERRPC: .WORD 0 :: CONTAINS PC OF LAST ERROR grt gd se 
$GDADR: .WORD 0 ;;CONTAINS ADDRESS OF ‘GOOD’ DATA 
$BDADR: .WORD 0 ::CONTAINS ADDRESS OF ‘BAD’ DATA 
$GDDAT: .WORD 0 3 = CONTAINS ‘GOOD * DATA 
$BDDAT: .WORD 0 ;-CONTAINS "BAD* DATA 
ae 3 > RESERVED--NOT TO BE USED 
$AUTOB: .BYTE 0 ; ;AUTOMATIC MODE INDICATOR 
SINTAG eds 4 32 INTERRUPT MODE INDICATOR 
: D DSWR ;sADDRESS OF SWITCH REGISTER 
DISPLAY: .WORD DDISP ; ADDRESS OF DISPLAY REGISTER 
TKS: 177560 aerty KBD STATUS 
$TKB: 177562 Y KBD BUFFER 
$TPS: 177564 tty PRINTER STATUS REG. ADDRESS 
$TPB: 177566 eeTTy PRINTER BUFFER REG. ADDRESS 
$NULL: .BYTE 0 : CONTAINS NULL CHARACTER FOR FILLS 
SFILLS: .BYTE 2 [:CONTAINS # OF FILLER CHARACTERS ior 
SFILLC: .BYTE 12 22 INSERT FILL CHARS. AFTER A ‘LINE FEED’ 
STPFLG: .BYTE 0O ;""TERMINAL AVAILABLE'’ FLAG (BIT<07>=0=YES) 
SREGAD: .WORD 0 7: CONTAINS THE ADDRESS FROM 
WHICH ($REGO) WAS OBTAINED 
$REGO: .WORD 0 7: CONTAINS (($REGAD) +0) 
EG1: .WORD 0 te nae ( ($REGAD) +2) 
$TIMES: 0 + OF ITERATIONS 
$ESCAPE :0 TIESCAPE ON ERROR ADDRESS 
ELL: .ASCIZ <207><377><377> 33 CODE FOR BELL 
$QUES: .ASCII /?/ : STION MARK 
SCRLF: .ASCII <15> : : CARRIAGE RE TURN 
SLF: eASCIZ <12> NE FEED 


PTT TTT ETTTTTTTTTT TTT TTT TTT TTT TT TTT TTT TTT TTL 


‘SBTTL APT MAILBOX-ETABLE 


J FERRARA AREER REARS REE EAE ERRATA EE 


EVEN 

IL + sAPT MAILBOX 
SMSGTY: .WORD AMSGTY :MESSAGE TYPE CODE 
SFATAL: .WORD AFATAL +S FATAL ERROR NUMBER 
STESTN: .WORD ATESTN ;; TEST NUMBER 


SEQ 0012 
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T MAILBOX~-E TABLE 


- $Pass: 


SMAMS1: . 
SMTYP1: . 
-& 


- WORD 


BIT 10=REAL_TIME CLO 
BIT 9=FLOATING POINT + ean 
BIT 8=MEMORY MANAGEMENT 


SEQ 0013 


3:PASS COUNT 
; ; sDEVICE COUNT 


YPE 
1704 of. 11/05=02,11/20=03,11/40=04,11/45=05 
11770=06- ot a Q=10 
























;;HIGH ADDRESS, ts BYTE 
(HIGH BYTE) 






5 . 
; HIGH ADDRESS ,BLKA#1 
MEM.LAST ADDR. =3 wii THIS WORD AND LOW OF ‘‘TYPE’ ABOVE 
;sHIGH ADDRESS,M.S. BYTE 
IMEM. TYPE ,BLKA2 
7 ;MEM.LAST ADDRESS ,BLK&2 
HIGH ADDRESS,M.S.BYTE 
ety TYPE ,BLK#3 
M.LAST ADDRESS ,BLK#3 
i HIGH ADDRESS ,M.S.BYTE 
2 2MEM.T YPE ,BLKA4 
7MEM.LAST ADDRESS ,BLK&4 
SEINTERRUPT VECTOR#1,BUS PRIORITY#1 
SEINTERRUPT VECTOR#2BUS PRIORI TY#2 
;sBASE ADDRESS OF EQUIPMENT UNDER TEST 
DEVICE MAP 
;;CONTROLLER DESCRIPTION WORDA1 
;;CONTROLLER DESCRIPTION WORDA#2 
; DEVICE DESCRIPTOR WORD#O 


CZVSA-B8 * es INSTRUCT 
CZVSAB.P 29-MAY - 


BRO LN LELEL LL ONL 
NO a Sh Ss Ss 6s ss ss 
LA ww ww we we ee ww a 


& 


027216 


027240 
031014 
031062 
000000 


027274 


027315 
031014 
031062 
000000 


027340 
031014 
031062 
000000 
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.SBTTL ERROR POINTER TABLE 
7*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR Hg CAN — 


3*THE INFORMAT 


* *NOTE1: 
*NOTE2: 


Z ITEM 


7 ITEM 


7 ITEM 


ZITEM 


ION IS OBTAINED BY USING THE INDEX NUMBER N 
:*LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE 2 # IS PERTINENT. 


IF $ITEMB IS O THE ONLY PERTINENT DATA IS ($ERR 


EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 


;sPOINTS TO THE ERROR MESSAGE 
3zPOINTS TO THE DATA HEADER 
3sPOINTS TO THE DATA 

3:POINTS TO THE DATA FORMAT 


MAINT. SWITCH REGISTER 
sERRPC TSTNUM BUSADR- EXPCT 
;SERRPC TSTNUM $BDADR $GDDAT 






RCVD 
$BDDAT 


;LOADING D.P.C. REGISTER <STATIC> 


sERRPC TSTNUM BUSADR EXPCT 
;SERRPC TSTNUM $BDADR $GDDAT 


;LOADING MODE REGISTER 
sERRPC TSTNUM BUSADR- EXPCT 
;$ERRPC TSTNUM $BDADR S$GDDAT 


; SEQUENCING DPC REGISTER 
SERRPC TSTNUM BUSADR EXPCT 
;SERRPC TSTNUM $BDADR $GDDAT 


;LOADING LINE TYPE REGISTER 
sERRPC TSTNUM BUSADR EXPCT 
;SERRPC TSTNUM $BDADR $GDDAT 





RCVD 
SBDDAT 


RCVD 
S$BDDAT 


RCVD 
$BDDAT 


RCVD 
S$BDDAT 


CZVSA-B VS60 INSTRUCTION TEST PART | 
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71 001340 027366 
72 001342 031014 
73 001344 031062 

000000 


78 001350 027422 
79 


85 001360 027454 
86 001362 031014 
87 001364 031062 

000000 


92 001370 027510 


001374 06 
95 001376 000000 
96 
97 
98 


99 001400 027544 
100 001402 031014 
101 001404 031062 

000000 


106 001410 027577 
031014 
001414 031062 

000000 


SRR 
S82 


027632 
001422 031014 
001424 031062 

000000 


~~ ss SY A 


— SS I oS 
AWnEWRI-O 
S 
* 

a) 

o 
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ERROR POINTER TABLE 


; ITEM 


; ITEM 


: ITEM 


ZITEM 


: ITEM 


i: ITEM 


LITEM 


43 PAGE 2 


;LOADING INTENSITY LEVEL REGISTER 
sERRPC TSTNUM BUSADR EXPCT  RCVD 
SSERRPC TSTNUM $BDADR $GDDAT $B8DDAT 


;LOADING GRAPHPLOT INCREMENT REGISTER 
sERRPC TSTNUM BUSADR EXPCT  RCVD 
;$ERRPC TSTNUM $BDADR $GDDAT $BDDAT 


;DISPLAY JUMP ABSOLUTE TO AN ADDRESS 
sERRPC TSTNUM BUSADR EXPCT RCVD 
;SERRPC TSTNUM $BDADR $GDDAT $BDDAT 


;DISPLAY JUMP RELATIVE TO AN ADDRESS 
;ERRPC TSTNUM BUSADR EXPCT  RCVD 
;$SERRPC TSTNUM $BDADR $GDDAT S$BDDAT 


;DISPLAY JSR ABSOLUTE TO AN ADDRESS 
sERRPC TSTNUM BUSADR EXPCT RCVD 
;SERRPC TSTNUM $BDADR $GDDAT $BDDAT 


;DISPLAY JSR RELATIVE TO AN ADDRESS 
;ERRPC TSTNUM BUSADR EXPCT RCVD 
:SERRPC TSTNUM $BDADR $GDDAT S$BDDAT 


;LOADING X POSITION REGISTER 
ZERRPC TSTNUM BUSADR EXPCT RCVD 
;$ERRPC TSTNUM $BDADR $GDDAT S$B8DDAT 


SEQ 0015 
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Z7VSAB.P11 29-MAY~79 10:10 ERROR POINTER TABLE SEQ 0016 


135 s1TEM = 15 
120 001430 027654 EM15 :LOADING Y POSITION REGISTER 
121 001432 031014 DH1 sERRPC TSTNUM BUSADR- EXPCT RCVD 
122 001434 031062 DT1 ;SERRPC TSTNUM {£3DADR $GDDAT $BDDAT 
it, 001436 000000 0 
1$2 ;ITEM 16 
127 001440 027676 EM16 ;BUS ERROR TIME OUT 
128 001442 031014 DH? sERRPC TSTNUM BUSADR- EXPCT RCVD 
129 001444 031062 DT1  $ERRPC TSTNUM $BDADR $GDDAT $8DDAT 
in 001446 000000 0 
13 : ITEM 17 
134 001450 027716 EM17 ; CHARACTER TERMINATOR ERROR 
135 001452 031014 DH1 sERRPC TSTNUM BUSADR- EXPCT RCVD 
136 001454 031062 DT1 ZSERRPC TSTNUM $BDADR $GDDAT $B8DDAT 
4 001456 000000 0 
$44 :ITEM 20 
141 001460 027740 EM20 sY OFFSET REGISTER ERROR 
031014 DH1 ZERRPC TSTNUM BUSADR- EXPCT RCVD 
031062 DT1 ;SERRPC TSTNUM $B8DADR $GDDAT $BDDAT 
000000 0 
ITEM 21 
027764 EM21 s& OFFSET REGISTER ERROR. ° 
031014 DH1 sERRPC TSTNUM .BUSADR EXPCT RCVD 
031062 DT1 + $ERRPC TSTNUM $BDADR $GDDAT $8DDAT 
000000 0 "ih 
2 - ” 
SITEM = 22 % 
yall 
030010 EM2e sRELOCATE REGISTER ERROR “~*~ 
031014 DH1 sERRPC TSTNUM BUSADR- EXPCT RCVD 
031062 DT1 sSERRPC TSTNUM $BDADR $GDDAT $8DDAT 
900000 0 
sITEM = 23 
030030 EM23 3D.P.U. NAME REGISTER ERROR 
031014 DH1 2 ERRPC TSTNUM BUSADR- EXPCT RCVD 
pales bs ;S=2RRPC TSTNUM $B8DADR $GDDAT S$BDDAT 









a ee me me ee eS we ee ee ed ed ed 
~O © 00 00 C0 Co 00 00 00 00 00 DCO NJ WN NNN 
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192 
193 
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030053 


030135 
031014 
031062 
000000 


030153 
031014 
031062 
000000 


030172 


03021 
03101 
03106 


2 
4 
2 
000009 


030230 
031014 
031062 
000000 


:1TEM 


7 ITEM 


; ITEM 


s ITEM 


7 ITEM 


s ITEM 


Z ITEM 


ae 
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24 


; SEARCH OR ASSOCITIVE NAME MATCH ERROR 


SERRPC TSTNUM BUSADR 
;$ERRPC TSTNUM $BDADR 


;VECTOR SCAL ERROR 
ZERRPC TSTNUM BUSADR 
7SERRPC TSTNUM $BDADR 


CHARACTER SCALE ROTATE 
;ERRPC TSTNUM BUSADR 
;SERRPC TSTNUM $BDADR 


BLINK LOGIC ERROR 
;ERRPC TSTNUM BUSADR 
;SERRPC TSTNUM $BDADR 


ITALIC LOGIC ERROR 
sERRPC TSTNUM BUSADR 
:SERRPC TSTNUM $BDAD2 


:MENU LOGIC ERROR 
ZERRPC TSTNUM BUSADR 
;$SERRPC TSTNUM $BDADR 


RESET FAILED TO CLEAR 
SERRPC TSTNUM BUSADR 
“$ERRPC TSTNUM $BDADR 


EXPCT 
$GDDAT 


EXPCT 
$GDDAT 


ERROR 
EXPCT 
$GDDAT 


EXPCT 
$GDDAT 


EXKPCT 
S$GDDAT 


EXPCT 
$SGDDAT 








“SEQ 0017 





RCVD 
$BDDAT 


RCVD 
$BDDAT 


RCVD 
$BDDAT 







RCVD 


$BDDAT 


RCVD 
$BDDAT 


RCVD 
$SBDDAT 


A REGISTER 


EXPCT 
$GDDAT 


RCVD 
S$BDDAT 


fy vsS60 begaegd F Me, TEST PART 1 
29=MAY=79 10:10 


030264 


030335 
031014 
031062 
000000 


030375 


030501 
031014 
031062 
000000 


; ITEM 


: ITEM 


SITEM 


: ITEM 


7 ITEM 


3s ITEM 


MACY11 306(1063) 
ERROR POINTER TABLE 


33 


ae 
17=SEP=79 08:43 PASE 5 





;STOP iNTERRUPT ERROR 
ZERRPC TSTNUM BUSADR 
;SERRPC TSTNUM $BDADR 


;L.P. FLAG ERROR 
TERRPC TSTNUM BUSADR 
;SERRPC TSTNUM $BDADR 


;COLOR LEVEL ERROR 
;ERRPC TSTNUM BUSADR 
:SERRPC TSTNUM $BDADR 


;WORD 0-1-2 INDICATOR ER 


EXPCT 
$GDDAT 


EXPCT 
$GDDAT 


EXPCT 
$GDDAT 


; INTENSITY ENABLE ~ CONSOLE 0/1 
;ERRPC TSTNUM BUSADR 
:SERRPC TSTNUM $BDADR 


EXPCT 
$GDDAT 


EXPCT 
$GDDAT 


EXPCT 
SGDDAT 


®: 


;ERRPC TSTNUM BUSADR- EXPCT 
S$ERRPC TSTNUM $BDADR SGDDAT. 


RCVD 
$BDDAT 


RCVD 
$BDDAT 


RCVD 
$BDDAT 


ERROR 
RCVD 
$BDDAT 


; INTERNAL STOP FLAG FAILED TO SET 
ZERRPC TSTNUM BUSADR 
;SERRPC TSTNUM $BDADR 


RCVD 
$BDDAT 


; INTERNAL STOP FLAG FAILED TO CLEAR 
;ERRPC TSTNUM BUSADR 
7SERRPC TSTNUM $BDADR 


Revd 
S$BDDAT 


i 


Rites 


x G 2 
CZVSA“B vS60 INSTRUCTION TEST PART 1 MACY11 30G(1063) 17=SEP=79 08:43 PAGE 6 
CZ7VSAB.P11 29-MAY=79 30:30 ERROR POINTER TABLE SEQ 0019 

see “ sITEM 42 
270 001700 030531 °° EM42 :L.P. INTR ENABLE - CONSOLE 0/1 ERROR 
271 001702 031014 DH1 SERRPC TSTNUM BUSADR EXPCT RCVD 
272 001704 031062 DT1 *$ERRPC TSTNUM $BDADR $GDDAT $B8DDAT 
33 001706 000000 = 0 
$9 “sITEM 43 
277 001710 030572 EM43 :L.P. SWITCH INTR ENABLE = CONSOLE 0/1 ERROR 
278 001712 031014 DH1 SERRPC TSTNUM BUSADR EXPCT  RCVD 

79 001714 031062 DT1 =$ERRPC TSTNUM $BDADR $GDDAT $®8DDAT 
280 001716 000000 0 
282 ZITEM 44 
284 001720 030642 EM44 :DISPLAY BUSY ERROR 
285 001722 031014 DH1 TERRPC TSTNUM BUSADR EXPCT  RCVD 
286 001724 031062 DT1 *$ERRPC TSTNUM $BDADR $GDDAT $BDDAT 
287 001726 000000 0 
288 
289 sITEM = 45 
290 001730 030662 EM4S :EXTERNAL STOP LOGIC ERROR 
291 001732 031014 DH1 sERRPC TSTNUM BUSADR EXPCT  RCVD 
292 001734 031062 DT1 *$ERRPC TSTNUM $BDADR $GDDAT $B8DDAT 
293 001736 000000 0 
7 ITEM 46 
297 001740 030711 EMG6 :TIME-OUT INTERRUPT ERROR 

298 001742 031014 DH1 SERRPC TSTNUM BUSADR EXPCT RCVD 
299 001744 031062 pT1 :$ERRPC TSTNUM $BDADR $GDDAT $BDDAT 
300 001746 000000 0 
302 :ITEM 47 
304 001750 030732 EM47 :NAME MATCH INTERRUPT ERROR 

305 001752 031014 DH1 “ERRPC TSTNUM BUSADR EXPCT  RCVD 
306 001754 031062 DT1 *$ERRPC TSTNUM $BDADR $GDDAT $BDDAT 
307 001756 000000 0 

308 
wp : ITEM 50 
311 001760 030755 EMSO :L.P. FLAG INTERRUPT ERROR 

312 001762 031014 DH1 sERRPC TSTNUM BUSADR EXPCT CVD 
313 001764 031062 DT1 :$ERRPC TSTNUM $BDADR $GDDAT $8DDAT 
316 001766 000000 0 
316 sITEM 51 
318 001770 030777 EMS 1 :STACK PTR ER 

319 001772 031014 DH1 ‘ERRPC TSTNUM BUSADR EXPCT  RCVD 
320 001774 031062 DT1 S$ERRPC TSTNUM $BDADR $GDDAT $&DDAT 
321 001776 000000 0 








H 
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> COMMON PROGRAM TAGS AND STORAGE LOCATIONS 


031076 : BUFFER ;FIRST WORD IN THE DISPLAY BUFFER 
BUFFER+2 SECOND WORD 
BUF FER+4 ; THIRD WORD 
BUF FER+6 SFOURTH WORD 
BUF FER+10 FIFTH WORD 
BUFFER+12 3 SIXTH WORD 


i: 0 
E 0 


; TEMP REG. 
;BUFFER SIZE 


Sead. 
> 9 CONTAINS TEST NO. ON ER 
20 ; COUNT USED FOR GENERAL PURPOSE DELAYS 


3VS60 ADDRESSES AND VECTORS POINTERS 


1oSoos ;DISPLAY PC REGISTER 
;DISPLAY STATUS REGISTER 
7X AXIS REGISTER AND GRAPHPLOT REG <READ ONLY> 
;Y AXIS REGISTER AND CHARACTER REG <READ ONLY> 
RELOCATION REGISTER 
MISC STATUS REGISTER #1 
;™ DYNAMIC OFFSET REGISTER 
7Y DYNAMIC OFFSET REGISTER 
ASSOCIATIVE NAME REGISTER 
; CONSOLE STATUS REGISTER 
;DISPLAY NAME REGISTER 
;VALUE OF CURRENT STACK WORD 
; TERMINATE CHARACTER REGISTER 
7 STACK POINTER REGISTER 
ZPOS: :Z POSITION REGISTER <READ ONLY> 
172036 : 172036 3Z DYNAMIC OFFSET REGISTER 


000320 DDONE: 320 ;DISPLAY STOP <DONE> VECTOR 
000322 t See : 


000324 : 324 :DISPLAY LIGHT PEN VECTOR 
000326 LPVCT1: 326 : 


000330 TIMEVT: 330 ;DISPLAY TIME-OUT <NXM.> ERRur VECTOR 
000332 TMEVT1: 332 ; OR "'SHIFT-OUT’* VECTOR 


000334 NAMEVT: 334 NAME MATCH VECTOR 
000336 NAMEV1: 336 





Sy vS60 gal amend Pg Mit PART 1 
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wes 


Ne Ne NN Ne Ne ae ae ee es ae ee ee Se wae wee 


EAA AAA RA AA AAR ARA A AAA OOOO 
NMINMOININD A 2 A SS BH OS SS SS OS OS SS SS SS 


29=MAY=79 


012737 


013746 


4 
070120 


001100 
001140 
001100 
024526 
000340 
025252 
600 


177777 


002316 
000176 
000174 
000004 
001210 
000200 
001224 
002030 
001256 
000002 
002070 


160000 


176634 


001140 
001142 


001223 
001140 


MACY11 30G6(1063) 
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ERROR POINTER TABLE SEQ 0021 
SOFTWARE INITALiZATION ROUTINE 


BEGIN: 
-SBTTL INITIALIZE THE COMMON TAGS 


7:CLEAR THE COMMON 


TAGS ($CMTAG) AREA 


MOV #SCMTAG ,R6 3sFIRST LOCATION TO BE CLEARED 
CLR (R6) + 3sCLEAR MEMORY LOCATION 
CMP ASWR,RO 3; ra 
-6 LOOP BACK IF NO 
MOV HSTACK, SP : SETUP THE STACK POINTER 
S INITIALIZE A FEW VECTORS 
MOV #$SCOPE ,a#IOTVEC fit VECTOR FOR SCOPE ROUTINE 
MOV #340 ,a#IOTVEC+2 ;:LEVEL 7 
MOV #SERROR , AWEMTVEC : EMT VECTOR FOR ERROR ROUTINE 
MOV oars awEMTVEC+2 2 ¢LEVE L 7 
MOV #STRAP ,@ATRAPVEC :; TRAP VECTOR FOR TRAP CALLS 
MOV net af TRAPVEC +2: LEVEL 7 
MOV N, AAPWRVEC eg FAILURE VECTOR 
MOV 7360, BHPURVECS? i¢ 
MOV SENDCT , SEOPCT ‘SEY YUP END-OF PROGRAM COUNTER 
CLR $TIMES : INITIALIZE NUMBER OF ITERATIONS 
CLR SESCAPE open THE ESCAPE ON ERROR ADDRESS 
MOVB #1, SERMAX ALLOW ONE ERROR PER TEST 
MOV ee ;PINITIALIZE THE LOOP ADDRESS FOR SCOPE 
MOV - SLPERR : SETUP ig a, OR LOOP ADDRESS 
:SIZE FOR A HARDWARE SWITCH REGISTER. IF FOUND OR IT IS 
;EQUAL TO A ‘=1'', SETUP FOR A SOF TWARE switch REGISTER. 
MOV @¥ERRVEC,-(SP) ;;SAVE ERROR VECTOR 
MOV #64$, @FERRVEC SET UP ERROR VECTOR 
MOV #DSWR, SWR ;;SETUP FOR A HARDWARE SWICH REGISTER 
MOV #DDISP,DISPLAY ::AND A HARDWARE DISPLAY REGISTER 
CMP #-1,aSWR ee TRY TO REFERENCE HARDWARE SwWR 
BNE 66$ ;BRANCH IF NO TIMEOUT TRAP OCCURRED 
AND THE HARDWARE SWR IS NOT = -1 
BR 65$ ater uP IF NO TIMEOUT 
64$: a5} #65$, (SP) :SET UP FOR TRAP RETURN 
65$: MCV ASWREG, SWR :sPOINT TO SOFTWARE SWR 
MOV ADISPREG, DISPLAY 
66$: MOV (SP)+,@MERRVEC ;;RESTORE ERROR VECTOR 
CLR $PASS ;CLEAR PASS COUNT 
BITB MAPTSIZE,SENVM TEST USER SIZE UNDER APT 
BEQ 67 YES,USE NON-APT SWITCH 
678 MOV #ESWREG, SWR ‘INO. USE APT SWITCH REGISTER 
SETUP1: MOV #DPC,RO SET UP YS60 REG ADRS POINTERS 
V $SBASE ,R1 GET VS60 BASE ADRS FROM APT MAILBOX-E TABLE 
SETUP2: MOV R1,(0)+ 
ADD #2,R1 
CMP #DDONE ,RO TEST FOR LAST ADDRESS 
BNE SETUP2 
MOV ADDONE ,RO SET UP VS60 VECTOR ADRS POINTERS 
MOV $VECT1,R1 [GET VS60 BASE VECTOR ADRS FROM APT MAILBOX~E TABLE 
BIC #160000,R1 > CLEAR PSW BITS * B * 
SETUP3: MOV R1,(0)+ 













CZ2VSA-8 VS60 INSTRUCTION 


TEST PART 1 MACY11 30G(1063) 17-SEP-79 08:43 PAGE 8-1 
CZ7VSAB.P11 29-MAY-79 10:10 


INITIALIZE THE COMMON TAGS SEQ 0022 


399 002422 062701 000002 ADD #2,R1 

400 002426 022700 002110 CMP A#BEGIN,RO TEST FOR LAST VECTOR 

401 002432 001372 BNE SETUP3 

402 002434 004737 024454 JSR PC,RSTVEC ;GO SET UP VS60 VECTOR ADR'S WITH HLTS 
403 002440 004737 026502 JSR PC,$SIZE ;DETERMINE LAST MEM LOCATION 

404 002444 013737 026576 002020 MOV $LSTAD,SIZE ;LOAD LAST MEM ADDRESS 

405 002452 162737 006000 002020 SUB #6000,SIZE : SAVE LOADERS AND XXDP 

406 002460 005737 000042 TST ase TEST IF RUNNING CHAIN MODE UNDER XXDP 
407 002464 001002 BNE RESTRT ;BR IF SO 

408 002466 104401 TYPE 


e H 
410 002472 012737 000340 177776 RESTRT: MOV #340 ,PSW ;SET PRIORTY TO HIGHEST LEVEL 
411 002500 012706 001100 MOV MSTACK, SP ALWAYS SET UP STACK POINTER 
412 002504 000005 RESET START TESTS WITH VS60 INITIALIZED 


413 002506 105037 001102 CLRB $TSTNM RESET TEST NUMBER 


K 2 | 
CZ7VSA-B _VS60 hes TEST PART 1 MACY11 30G(1063) 17-SEP-79 08:43 PAGE 9 
CZVSAB.P11 29-MAY=79 10:10 11 SEE IF ALL VS60 REGS ARE THERE SEQ 0023 


415 STREAK REE E RE EREREREEEEEEREREE KERR EEEE  E 
(3) S*TEST 1 SEE IF ALL VS60 REGS ARE THERE 

(3) MeOAhBRASBAASZA£ZAAA£2 BASLE SSSASRSE SESS SES ES ASE SAS ERE EERE RARER RS RRS SESS SE 
(2) 002512 000004 811: SCOPE 

(2) 002514 012737 000001 001206 MOV #1, $TESTN ::SET TEST NUMBER IN APT MAIL BOX 
416 002522 012737 002556 001110 MOV #1$, SLPERR :SET UP SCOPE LOOP ADRS 

417 002530 012737 002576 000004 MOV #2$,aM4ERRVEC | :SET UP TIME OUT TRAP 

418 002536 012737 000340 000006 MOV #340, a#ERRVEC+2 :SET UP TIME OUT PRIORIT 

419 002544 013737 001256 001122 MOV $BASE,$BDADR :PUT 1ST VS60 BUS ADRS IN LOC $BDADR 
420 002552 012700 000020 MOV #20,RO0 :SET UF REG COUN 

421 002556 005777 176340 1$: TST @$BDADR “LOOK FOR vs60 REG 

422 002562 062737 000602 001122 ADD #2,$BDADR SOK-ADVANCE TO NEXT 

423 002570 005300 DEC RO SHAVE WE TRIED ALL REGS? 

424 002572 001371 BNE 1$ ‘BR IF NOT 

425 002574 000402 BR 3$ 7GO RESTORE LOCS 4 & 6 

426 002576 022626 2$: CMP (R6)+, (R6)+ iFIX STK SINCE NO RTI 

427 002600 104016 ERROR 16 REG ADRS TIME OUT ER 

428 002602 012737 000006 000004 3$: MOV MERRVEC +2, A#ERRVEC -POINT TO HALT IN ADRS 6 
429 002610 005037 000006 CLR @FERRVEC+2 ;SET UP HALT 

431 FRR REE ERE KERR EEE EEK EERE EERE EKER EERE EERE KEKEKEKKEEEKEEER KKK 
.@) S*TEST 2 FLOAT A ONE THRU TERMINATE CHARACTER REG 

(3) 5 TREKKA ERE RARER REE CHEER AERKERRERRAERERERRRE KH 
(2) 002614 000004 TST2: SCOPE 

(2) 002616 012737 000002 001206 MOV #2, $TESTN ::SET TEST NUMBER IN APT MAIL BOX 
432 002624 012737 002646 001110 MOV #1$,$LPERR :SET UP SCOPE LOOP ADRS 

433 002632 013737 002060 001122 MOV TERMCH,$BDADR SET UP TERMCH ADRS 

434 002640 012737 000100 001124 MOV #100, $GDDAT TEXPECT 100 INITIALLY 

435 002646 013700 001124 1$: MOV $GDDAT RO *PUT PATTERN IN RO 

436 002652 052700 000200 BIS #200,R0 ;SET THE ENABLE BIT 

437 002656 010077 177176 MOV RO, @TERMCH “LOAD UP TERMCH REG 

438 002662 017737 177172 001126 MOV @TERMCH, SBDDAT tREAD IT BA 

439 002670 023737 001124 001126 CMP $GDDAT,$BDDAT :IS IT CORRECT? 

440 002676 001401 BEQ 2$ [BR IF OK 

441 002700 104017 ERROR 17 : TERMINATE CHARACTER READ/WRITE EP 
442 002702 006237 001124 2$: ASR SGDDAT ‘SHIFT ONE BIT RIGH 

44s 002706 001357 BNE 1$ ‘BR IF NOT DONE 

445 CTE EAE EERE EEE REE EEE EERE EERE KEREEEEEEKEEREKEKEEKEKEKEE EE 
(3) T*TEST 3 FLOAT A ZERO THRU TERMINATE CHARACTER REG 

(3) J TAREE EERE RARER EERE REREKEEEEKEEEEEREEREEEREREEEKEEEEREEKEEEKEEE EK 
(2) 002710 000004 TST3: | SCOPE 

(2) 002712 012737 001206 MOV #3, $TESIN ::SET TEST NUMBER IN. apT MAIL BOX 

002720 012737 002746 001110 MOV #1$,$LPERR :SET UP SCOPE LOOP AD 

447 002726 013737 002060 001122 MOV TERMCH,$BDADR :SET UP TERMCH ADRS 

448 34 012737 001124 MOV #77 $GDDAT SEXPECT 77 INITIALLY 

449 002742 012700 177677 MOV #177677,RO [PUT PATTERN IN RO 

450 746 010077 06 1$: MOV RO, aTERMCH ‘LOAD UP TERMCH REG - SEND HIGH BITS FOR NOISE 
451 002752 017737 177102 001126 MOV @TERMCH,$BDDAT :READ IT BACK 

452 002760 023737 00 001126 CMP $GDDAT , $BDDAT :1S IT CORRECT? 

453 002766 001401 BEQ 2$ F OK 

454 002770 104017 ERROR 17 TERMINATE CHARACTER READ/WRITE ER 
455 002772 006200 2s: ASR RO ‘SHIFT ZERO BIT RIGHT 

456 002774 006237 001124 ASR $GDDAT SSHIFT PATTERN IN COMPARE LOC 


457 003000 052737 000100 001124 BIS #100, $GDDAT SET MSB 
458 003006 103757 BCS 1$ ;BR IF NOT DONE 
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000004 


10:10 


176560 


PART 1 


001126 


001206 
001110 
001122 


001124 
001126 


001126 
001126 


St: 
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FLOAT A ZERO THRU TERMINATE CHARACTER REG 


WeEReSAAASSAAAASAARAARASLARARLASLARAAAR ALARA RAS ASRS ASRS R SERRA ARRAS ERAS SSD OS 


:*TEST 4 


TEST TERMINATE CHARACTER REG IS NOT WRITEABLE WHEN CHANGE ENA=0 


MARAARAAAASAASAA ££ SS ALLSARSSARSSES ASAE SER ESR R SERRA SARS SAR ASD ESS 


1814: 


s*TEST 5 


TST5: 


SCOPE 
MOV #4, STESTN ::SET TEST NUMBER IN APT MAIL BOX 
MOV TERMCH,$BDADR :SET UP TERMCH ADRS 

MOV #177, $GDDAT 'SET UP DATA PATTERN 

MOV W707 @TERMCH ;LOAD WRITEABLE BITS 

CLR aTERM TRY TO CLEAR ALL BITS 

MOV STERMCH, $BDDAT :=READ IT BACK 

CMP SGDDAT , $BDDAT ;SEE IF ANY BITS WERE CLEARED 


—~¢ 


BEQ TST5 ;;ADVANCE TO NEXT TEST IF OK 
ERROR 17 : TERMINATE CHARACTER ENABLE CHANGE ER 
DRAG ISIS ISI SISIOIOIOIOIDIOIOIOIDIIIDISOIIIOIOIIOIOITIOITIOIOIOI IOI TOI TOI TOI OT TT OT TE TIE 
FLOAT ‘A ONE THRU Y DYNAMIC OFFSET REG 
BOOSIE IIIS UIISISISIISIOIUISISIUIOIUISIOISIIOISIOISISIOIIOISI ISIC IOIIOIDIOIIIOIOI IE 
SCOPE 
MOV #5, $TESTN 77SET TEST NUMBER IN APT MAIL BOX 


2s: 


MOV #1$,$LPERR SET UP SCOPE LOOP ADRS 
MOV YDOFF , SBDADR SET UP YDOFF ADRS 

MOV #4000 , SGDDAT :SET UP MSB TO A ONE 
MOV SGDDAT. rab As + LOAD 74 YDOFF REG 


BACK 
BIC #170000,$BDDAT SAVE ONLY ae VALUE 
CMP SGDDAT,$BDDAT 31S IT CORRECT? 
2$ :BR IF OK 


ERROR 20 7Y OFFSET READ/WRITE ER 
ASR SGDDAT >SHIFT ONE BIT RIGHT 
BNE 1$ BR IF NOT DONE 


J TRAE EEEEREEEREKEREEKEKEREEKRERKEEEEEAE ERE EERE ERE EK EH 


s*TEST 6 FLOAT A ZERO THRU Y DYNAMIC OFFSET REG 


JL AERA KEKE EKER EKEEKKEKEE KEE REE EREKEEE 


TST6: 


1$: 


2$: 


SCOPE 
MOV #4, S$TESTN ;;SET TEST NUMBER IN oy MAIL BOX 


TTERN FOR COMPARE 
BIC #170000, SGDDAT eer RID OF BITS THAT ARE NOT WRITEABLE 
MOV YDOFF REG - SEND HIGH BITS FOR NOISE 


RO, aYDOF F SLOAD UP 
MOV @YDOFF.$BDDAT :READ IT BACK 
BIC #170000,$BDDAT :SAVE ONLY OFFSET VALUE 
CMP SGDDAT, ,SBDDAT :IS IT CORRECT? 


BEQ BR IF Ok 
ERROR 20 7Y OFFSET READ/WRITE ER 
oe RO :SHIFT ZERO BIT RIGHT 


1$ BR IF NOT DONE 
CLR aYDOFF ; INSURE 0 Y OFFSET BEFORE ADVANCING 


LFA REAR EREREEKEEAEE EAE KEE RK ERE REA REERERKEREEKEEAEEA RE REEE H 


i*TEST 7 FLOAT A ONE THRU X DYNAMIC OFFSET REG 


5 AAA ARERR EERE ERE REE ERE AKER REE REE AERERRE ERK E KE 


S17: 


SCOPE 


SEQ 0024 


M2 
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CZVSAB.P11 29-MAY-79 10:10 T7 A ONE THRU X DYNAMIC OFFSET REG SEQ 0025 
(2) 003270 012737 000007 001206 MOV #7, STESTN 77SET TEST NUMBER IN APT MAIL BOX 
500 003276 012737 003320 001110 MOV #1$,$LPERR ;SET UP SCOPE LOOP ADRS 
501 003304 013737 002044 001122 MOV XDOFF , S$BDADR :SET UP XDOFF Yr 
502 003312 012737 004000 001124 MOV #4000, $GDDAT SET UP MSB TO A ONE 
503 003320 013777 001124 176516 1$: MOV SGDDAT , @XDOF F ;LOAD UP XDOFF REG 
504 003326 017737 176512 001126 MOV @XDOFF , $BDDAT READ IT BACK 
505 003334 042737 170000 001126 BIC #170000,$BDDAT SAVE ONLY OFFSET VALUE 
506 003342 023737 001124 001126 CMP $GDDAT, $BDDAT 71S IT CORRECT? 

507 003350 001401 BEQ 2$ ‘BR IF OK 
508 003352 104021 : ERROR 21 sx OFFSET eg th ER 
509 003354 006237 001124 2$: ASR SGDDAT SHIFT ONE BIT RIGHT 
a9 003360 001357 BNE 1$ ;BR IF NOT DONE 
$12 IOI IOI I III IIOIOIOI I IOIIIOIIOI III III III I i toi ik 
(3) SRTEST 10 FLOAT A ZERO THRU X DYNAMIC OFFSET REG 
(3) III ISIIOIOIIOIOIOIIUIIOIOICIOIOIOIOIOIUIOIUIOIOIOIOIOIIOIOIUIOIOIOIUIIOIOIOIOIIOIO Io 
(2) 003362 000004 78110: SCOPE 
(2) 003364 012737 000010 001206 MOV #10,$TESTN 3zSET TEST NUMBER IN APT MAIL BOX 
513 003372 012737 003412 001110 MOV #1$.$LPERR ;SET UP SCOPE LOOP ADRS 
514 013737 002044 001122 MOV XDOFF , S$BDADR SET UP XDOFF ADRS 
515 003406 012700 173777 MOV #173777 -RO ;SET MBB TO A ZERO 
516 003412 010037 001124 1$: MOV RO, $GD ;SAVE PATTERN FOR COMPARE 
517 003416 042737 170000 001124 BIC #170000. ScDDAT [GET RID IF HIGH BITS THAT ARE NOT WRITEABLE 
51 003424 010077 176414 MOV RO,@X ;LOAD UP XDOFF REG - SEND HIGH BITS FOR NOISE 
519 30 017737 176410 001126 MOV SXDOFF OSBDDAT ;READ IT BACK 

003436 042737 170000 001126 BIC #170000, SBDDAT ;SAVE ONLY AX og VALUE 
521 003444 023737 001124 9001126 CMP $GDDAT, $BDDAT :IS IT CORRECT? 
522 003452 00 BEQ 2s :BR IF OK 
523 003454 104021 ERROR 21 7X OFFSET READ/WRITE ER 
524 003456 006200 2s: ASR RO 7SHIFT ZERO BIT RIGHT 
525 003460 103754 BCS 1$ 7BR IF NOT DONE 
se 003462 005077 176356 CLR @XDOF F ; INSURE 0 X OFFSET BEFORE ADVANCING 
528 DDO III IOI IID III IOI TOIT TOT I TOI TOI TI TOT I I 
(3) i*TEST 11 TEST THAT THE Y OFFSET POLARITY BIT CAN SET & RESeT 
(3) DDRII IOI III III IOI IOIO ICICI TOTTI ITT III IAA II SAAS SISISISSNSSI SIS 
(2) 003466 000004 TST11: SCOPE 
(2) 003470 012737 001206 MOV #11,$TESTN 7SET TEST NUMBER IN APT MAIL BOX 
5 003476 012737 003524 001110 MOV #1$,$LPERR “SET UP SCOPE LOOP ADRS 
5 504 013737 2 001122 MOV ZDOFF , S$BDADR ;SET UP REG 36 ADRS 
531 003512 012700 020000 MOV #20000 .RO ;RO HAS BIT 
532 003516 012737 001124 MOV #40000,$GDDAT ;LD EXPCTED 
533 003524 0077 176316 1$: MOV RO, @YDOF F ;SEND IT OUT 
5 530 017737 176332 001126 MOV @ZDOFF , S$B8DDAT [READ AT REG 36 
535 003536 042737 037777 001126 BIC #37777, $BDDAT ;SAVE X x Y POLARITY BITS 
5 003544 023737 001124 001126 CMP SGDDAT , S$BDDAT CORR ECT? 
537 003552 14 BEQ 2s ;BR IF SO 
538 003554 104020 ERROR 20 7Y OFFSET POLARITY READ/WRITE ER 
539 003556 005037 001124 2$: CLR SGDDAT sEXPECT ZERO 
540 003562 162700 020000 SUB #20000,"0 [NOW RESET STATE 
ot! 003566 100356 BPL 1$ ;BR IF NOT YET TESTED 
543 RI IISIIIIOIIIDIOIIOIISIDIDIOIIIIDIIOIUIDIOIDIDIOIIIOIOIOIOII IOI UIOIOIIIOIOIISOIOIIDIOI IIE TE 
(3) SSTEST 12 TEST THAT THE X OFFSET POLARITY BIT CAN SET & RESET 
(3) REE EERE ERE REAR RE RE RERRRee 


(2) 003570 000004 T$112: SCOPE 


N 
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CZVSAB.P11 29=MAY-79 10:10 Ti2 TEST THAT THE X OFFSET POLARITY BIT CAN SET & RESET SEQ 0026 
(2) 003572 012737 000012 001206 MOV #12, $TESTN :gSET TEST NUMBER IN APT MAIL BOX 
544 003600 012737 003626 001110 MOV #1$.$LPERR SET UP SCOPE LOOP ADRS 
545 003606 013737 002066 001122 MOV Z2DOFF SBDADR SET UP REG 34 ADRS 
546 003614 012700 020000 MOV #20000,RO :RO HAS BIT 
547 003620 012737 100000 001124 MOV #100000, SGDDAT ‘LD EXPECTED 
$48 003626 010077 176212 1$: MOV RO, aXDOF F :SEND IT OUT 
549 003632 017737 176230 001126 MOV @ZDOFF,$BDDAT :READ IT BACK 
550 003640 042737 037777 001126 BIC #37777.$BDDAT SAVE X & Y POLARITY BITS 
551 003646 023737 001124 001126 CMP $GDDAT . $BDDAT ils IT CORRECT? 

552 003654 001401 BEQ 2$ F SO 
553 003656 104021 ERROR 21 xX OFFSET POLARITY READ/WRITE ER 
554 003660 005037 001124 2$: CLR $GDDAT EXPECT ZERO 
555 003664 162737 020000 001124 SUB #20000,$GDDAT ADVANCE TO RESET STATE 
228 003672 100355 BPL 1$ ‘BR IF NOT YET TESTED 
558 J LAER ERE REE EEE EEEEREEEEERERE RAKE ERE 
(3) Z*TEST 13 FLOAT A ONE THRU RELOCATE REG 
(3) FLARE REE EEE ERE EEE ER EEE EERE AREER ERE EERE EERE ERE 
(2) 003674 000004 TST13: SCOPE 
(2) 003676 012737 3 001206 MOV #13, $TESTN ::SET TEST NUMBER IN APT MAIL BOX 
559 003704 012737 003726 001110 MOV #1$,$LPERR SET UP SCOPE LOOP ADRS 

003712 013737 002040 001122 MOV RLO. SBDADR 7SET UP RLO ADRS 
561 003720 012737 001124 MOV #4000, $GL'DAT ;SET UP MSB TO A ONE 

003726 013777 001124 176104 1$ MOV SGDDAT ,aRLO ;LOAD UP RLO REG 
563 003734 017737. 176100 001126 MOV @RLO, $BDDAT [READ IT BACK 

00372 023737 001124 001126 CMP SGDDAT,$BDDAT IS IT CORRECT? 
565 003750 00140 BEQ 2$ BR IF 
566 003752 104022 ERROR 22 {RELOCATE REG READ/WRITE ER 
567 003754 006237 001124 2$: ASR S$GDDAT ;SHIFT ONE BIT RIGHT 
a8 003760 001362 BNE 1$ BR IF NOT DONE 
570 CO Ri i RI RIO ITO IOI IOI IOI IOI TOIT TOIT TOTO TOR TOI TOI 
(3) I*TEST 14 FLOAT A ZERO THRU RELOCATE REG 
(3) MASDBAABAS2SZASASZAL£LSLESL ASE SES ERASER EASES RRS E SERS ERASERS SSSA ASSESS 
(2) 003762 000004 T8114: SCOPE 
(2) 3764 012737 000014 001206 MOV #14, $TESTN :zSET TEST NUMBER IN APT MAIL BOX 
571 003772 012737 004012 001110 MOV #1$.$LPERR :SET UP SCOPE LOOP ADRS 
572 013737 002040 001122 MOV RLO. $BDADR [SET UP RLO ADRS 
573 004006 012700 173777 MOV #173777,RO *SET MSB TO A ZERO 
574 004012 010037 001124 1$: MOV RO, $GDDAT SSAVE PATTERN FOR COMPARE 
575 004016 042737 170000 001124 BIC #170000, $GDDAT GET RID 4 HIGH BITS THAT DO NOT READ/WRITE 
576 004024 010077 176010 MOV RO, a@RLO [LOAD UP RLO REG - SEND HIGH BITS FOR NOISE 
577 004030 017737 176004 001126 MOV @RLO, $BDDAT [READ IT BACK 
578 004036 023737 001124 001126 cp SGDDAT,$BDDAT :IS IT CORRECT? 
579 004044 001401 BEO 2$ [BR IF OK 
580 004046 104022 ERROR 22 RELOCATE REG READ/WRITE ER 
581 004050 006200 2$: ASR RO SSHIFT ZERO BIT RIGHT 
582 004052 103757 BCS 1$ ‘BR IF NOT DONE 
583 004054 005077 175760 CLR aRLO [CLR RELOCATE REG BEFORE ADVANCING 
585 SPEER AREER ERED 
(3) Z*TEST 15 TEST THAT ALL MAINT TYPE BITS ARE READ/WRITEABLE 
(3) STREAK 
(2) 004060 000004 15715: SCOPE 
(2) 004062 012737 000015 001206 MOV #15, ,$TESTN 77SET TEST NUMBER IN APT MAIL BOX 


586 004070 013737 002062 001122 MOV STKPT , $BDADR ;SET UP REG 32 ADRS 
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004076 
004104 


004112 
004120 
004126 
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004142 
004144 
004146 
004154 


mw 


Wont 
MONMONASON 


175616 


007777 
175550 


175500 


S88388 


=) 
Oo 
* 
s 


001166 
001206 
001122 
175624 


001126 


001166 
001206 
601122 
175556 


001126 


001166 
001206 
001122 
175506 
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TEST THAT ALL MAINT TYPE BITS ARE READ/WRITEABLE 


#1$,$LPERR 
#170000, $GDDAT 
$GDDAT , @STKPT 


SGDDAT , SBDDAT 
2s 


i 
 eaigaimerstd 


SET UP SCOPE LOOP ADRS 
;EXPECT ALL mss oo 
;LOAD UP MAIN 


[READ THEM BACK” 
SAVE ONLY MAINT SWITCHES 
SARE THEY CORRECT? 


:BR IF SO 
;MAINT SWITCH READ/WRITE ERROR 


‘GO TO NEXT PATTERN 


;BR IF ALL STATES NOT TESTED 


RE RRR EKER EERE EEEKEREEEEEKEEEREEEEEEREERREEEREKKKK 


TEST THAT RESET WILL CLEAR THE RELOCATE REG 


TST16: 


#10,$TIMES 
#16, $TESTN 
RLO, $BDADR 
$GDDAT 

#7777 ,aRLO 


@RLO, $BDDAT 
TST1? 


Rll h ehhh ka teh hehehehe lelehalcheialahahelaiehelalelelalsiahelehalahelehehelainialaialsiehehcialeiehsieleleheialeieielel 


cs. 10 ITERATIONS 
T TEST ay _ APT MAIL BOX 
SET UP REG 10 A 
TEXPECT ALL Tero 
;LOAD IT UP 
;CLR IT OUT 
sREAD IT 
::GO TO NEXT TEST IF CLEARED 
;RESET FAILED TO CLR RELOCATE REG 


I RE RRR RRR ERE ERROR EEA REE REE ERE RARE EERE RE RER EEK 


teTEST 17 


TEST THAT RESET WILL CLEAR THE X DYNAMIC OFFSET REG 


CLARE RRR EKER EERE EERE EEE EERE EEK RRER ERR 


TSTi7s 


#10,$TIMES 
#17,$TESTN 
XDOFF , $BDADR 
$GDDAT 

#7777 ,@XDOF F 


@XDOFF , $BDDAT 
iste 


3:D0_ 10 ITERATIONS 

73SET TEST NUMBER APT MAIL BOX 
SET UP REG 14 ADRS 

EXPECT ALL ZEROS 

;LOAD IT UP 

CLR IT OUT 

sREAD JT 

3;G0 TO NEXT TEST IF CLEARED 

RESET FAILED TO CLR X DYNAMIC OFFSET REG 


DD IRI RRR ER EERE EER EERE KEE REE EEE 


:*TEST 20 


TEST THAT RESET WILL CLEAR THE Y DYNAMIC OFFSET REG 


WEP SSASSESLA£ SRS SSS SELES ES ER ERE REE RRS ER EAA A RASA REAR ARRAS REESE OS 


TS120: 


#10,$TIMES 
#20,$TESIN 
YDOFF , $BDADR 
GDDAT 


#7777 ,aYDOFF 
@YDOFF , $BDDAT 


TST21 
20 


2 2D0 10 ITERATIONS 
SET TEST NUMBER Ly APT MAIL BOX 
:SET UP REG 16 ADRS 
SEXPECT ALL ZEROS 
;LOAD IT UP 
:CLR IT OUT 
sREA DIT 
3GO TO NEXT TEST IF CLEARED 


“RESET FAILED TO CLR Y DYNAMIC OFF SET REG 


DD IRR RR IRE REE RARE EE REE R RE REEREREERERR 


Z*TEST 21 


TEST THAT RESET WILL CLEAR X & Y OFFSET POLARITY BITS 


DLR ERE EEE E AERA ERRAR EAR ER ERA RRAE ERE RR ATER EAR EER 


SEQ 0027 
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CZ7VSAB.P11 29=MAY-79 10:10 T21 TEST THAT RESET WILL CLEAR X & Y OFFSET POLARITY BITS SEQ 0028 

(2) 004354 000004 TST21: SCOPE 
(1) 004356 012737 000040 001166 MOV #40,$TIMES : £00 40 ITERATIONS 
(2) 004 012737 000021 001206 MOV #21.$TESTN SET TEST NUMBER IN APT MAIL BOX 
626 004372 013737 002066 001122 MOV ZDOFF,$B8DADR = SET UP REG 36 ADRS 
627 004400 005037 001124 CLR $GDDAT TEXPECT ZERO 
628 004404 012777 020000 175432 MOV #20000,aXDOFF  :SET X POLARIYT BIT 
629 004412 012777 020000 175426 MOV #20000. @YDOFF :SET Y POLARITY BIT 

004420 5 RESET ‘CLR THEM 
631 004422 017737 175440 001126 MOV @ZDOFF,$BDDAT  =READ REG 36 
632 004430 042737 037777 001126 BIC #37777.$BDDAT = SAVE ONLY POLARITY BITS 
633 0044636 023737 001124 001126 CMP $GDDAT.$BDDAT CORRECT 
634 004444 001401 BEQ TST22 + :NEXT TEST IF SO 
635 004446 104032 ERROR 32 ‘RESET FAILED TO CLR OFFSET POLARIY BiTS 
637 FF I II II II I RRR ER EKER ERK EERE EEK 
(3) :*xTEST 22 TEST THAT RESET WILL CLEAR TERMINATE CHARACTER REG 
(3) MAAR SSAASAALASLASLARLSAAASALASASA SSSA ASA SARA SRA RRA ES RRA RS AAAS SAS ESS SG 
(2) 004450 000004 78122: SCOPE 
(1) 006452 012737 000070 001166 MOV #10,$TIMES ::D0 10 ITERATIONS 
(2) 004460 012737 000022 001206 MOV #22,$TESTN sSET TEST sy ye APT MAIL BOX 
638 004466 013737 002060 001122 MOV TERMCH.S$BDADR :SET UP REG 30 
639 004474 005037 001124 CLR $GDDAT SEXPECT ALL FEROS 
640 004500 012777 000377 175352 MOV #377, aTERMCH LOAD IT UP 
641 004506 000005 RESET :CLR IT OUT 
642 004510 017737 175344 001126 MOV @TERMCH,$BDDAT :READ IT 
643 004516 001401 BEQ TST23 +:GO TO NEXT TEST IF CLEARED 
ae 004520 104017 ERROR 7 sRESET FAILED TO CLR TERMINATE CHAR RES 
646 FD I RE KREEEEEKREKERREKEEREREREREERRERREE RE RREE EEK 
(3) SxTEST 23 TEST THAT RESET CLEARS ALL MAINT BITS 
(3) SD IHRE EERE REE KR EEEEKER ERE EREEKEREEKRERERH 
(2) 004522 000004 1ST23: SCOPE 
(1) 004524 012737 000100 001166 MOV #100, STIMES DO 100 ITERATIONS 
(2) 004532 012737 000023 001206 MOV #23,$TE <°SET TEST NUMBER IN APT MAIL BOX 
647 004540 013737 002062 001122 MOV STKPT, SSDADR SET my REG ADRS 32 
648 004546 005037 001124 CLR $GDDAT ‘LOAD EXPECTED 
649 004552 012777 170000 175302 MOV #170000,@STKPT LOAD REGISTER 
650 004560 000005 RESET S INITILIZE 
651 004562 017737 175274 001126 MOV @STKPT,$BDDAT  :READ REG. 
652 004570 042737 003777 001126 BIC #3777, $BDDAT :MASK OUT OTHER BITS 
653 004576 001401 BEQ TST24 BR IF ALL CLEARED 
694 004600 104032 ERROR 32 “RESET FAILED TO CLEAR MAINT. BITS 
656 LD ERR RRR ERR REE RE KEE RRA EERE EERE AREER EKER EERE 
(3) T*TEST 26 TEST THAT THE STACK SELECTION BITS ARE READ/WRITEABLE 
(3) MOASASASAAaSa£A22 A222 FEES ESSESAALLESESESE SELES ER ESE RE RRA ARREARS ERAS SASS 
(2) 004602 000004 78124: SCOPE 
(2) 004604 012737 000024 001206 MOV #24, $TESTN ::SET TEST NUMBER IN APT MAIL BOX 
657 004612 012737 004634 001110 MOV #1$.$LPERR :SET UP SCOPE LOOP ADRS 
658 004620 013737 002062 001122 MOV STKPT,$BDADR =: SET UP REG ADRS 32 
659 004626 012737 37 001124 MOV #37, $GDDAT SEXPECT ALL BITS INITIALLY 

004634 013777 001124 175220 1$: MOV $GDDAT,aSTKPT :SEND PATTERN OUT 
661 2 017737 175214 001126 MOV aSTKPT.$BDDAT :READ IT BACK 
662 004650 042737 177740 001126 BIC #177740,$8DDAT SAVE ONLY STACK SELECTION BITS 
665 004656 023737 001124 001126 CMP $GDDAT, $BDDAT : COR RECT? 


001401 BEQ 2$ BR IF SO 
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665 004666 104051 
666 004670 O93 s20 001124 


000040 
(2) 006706 012737 000025 
670 004714 013737 paenet 


7 2737 00004 
672 004730 012777 000037 
000077 
674 004744 017737 175112 


675 004752 042737 177700 
676 Be nee 023737 001124 


051 
679 004772 012737 000040 
680 005000 012777 000037 
000005 


005006 
682 005010 017737 175046 
oar 005016 023737 001124 


001124 





000403 
701 005120 006337 001124 


04 

(3) 

(3) 

(2) 905126 000 

(1) 005130 012737 000040 

(2) 005136 012737 00002? 
012 005204 





PART 1 


001166 


001126 


001124 
175054 


001126 
001126 


001166 


001126 


001166 
001206 
001110 


2s: 
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TEST THAT THE STACK SELECTION BITS ARE READ/WRITEABLE SEQ 0029 
ERROR 51 ; STACK ag Wh “pesca ER 

DEC $GDDAT SADVANCE PATTERN 

BPL 1$ 3BR IF ALL *PAT TERNS NOT TESTED 


SLA ERR RERKEEERER EERE REE ARRE RRR ERE ERE REREERERE ERR EEK 


° 
-* 
© 


TEST 25 TEST THAT ‘TOP OF STACK" AND RESET CLEARS STACK SELECTION BITS 


LEAR RRA AREER REE EERE KEE ERR ERE REE ERE REE ERE EKER EH 






2$: 


SRR RRR REE KER EERE RARER ARERR REE REA ERREKE 


TEST 27 TEST THAT THE RELOCATE REG WILL CORRECTLY SET UP THE DPC 
LDR EAE ERA 
TST27: SCOPE 

MOV #40, $TIMES ::D0_ 40, ITERATIONS 

MOV #27,$TESTN ::SET TEST NUMBER IN APT MAIL BOX 








TST25: SCOPE 
MOV #40,$TIMES ;:D0_ 40 ITERATIONS 
MOV #25. $TESTN :SET TEST NUMBER IN APT MAIL BOX 
MOV STKPT.$BDADR  <SET UP REG ADRS 32 
MOV #41, $GDDAT *LOAD EXPECTED. 
MOV #37 aSTKPT ‘SET ALL BITS 
MOV #77. @STKPT =CLR ALL BITS 
MOV @STKPT,$BDDAT :READ STACK SELECTION BITS 
BIC #177700 ,$BDDAT SAVE SEL BITS ONLY 
CMP $GDDAT,$BDDAT :CORRECT? 
BEQ 1$ ‘BR IF SO 
ERROR 51 ‘TOP OF STACK' FAILED TO CLR BITS 
1$: MOV #40,$GDDAT ‘LD EXPECTED 
MOV #37. aSTKPT ‘SET ALL BITS 
RESET ZRESET CRS THEM & SET ‘TOP OF STACK* 
MOV @STKPT,$BDDAT  :READ THEM 
CMP SGDDAT , $BDDAT ; CORRECT? 
REQ TST26 : NEXT TEST IF SO 
ERROR 51 ‘RESET FAILED TO SET UP ‘TOP OF STACK’ 
.SBTTL 
"SBTTL THESE TESTS USE MAINT SWITCH #1 
*SBTITL 
LL RRR AER REE EERE ERE EERE REE KEKE EKER ERE KERR REE RRR EEE EK ERR 
T*TEST 26 FLOAT A 1 ACROSS THE D.P.C. 
CD I RRR RIKER EER ERE EER REE 
1ST26: SCOPE 
MOV #40, $TIMES ::DO 40 ITERATIONS 
MOV #26.$TESTN +:SET TEST NUMBER IN APT MAIL BOX 
MOV DPC; $BDADR [SET UP REG ADRS 00 
MOV WBIT1,$GDDAT § :LOAD EXPECTED 
MOV #81712, aSTKPT :SET MAINT SWITCH #1 
1$: MOV $GDDAT . aDPC [LOAD D.P.C. 
MCV @DPC , $BDDAT TREAD D.P.C. INTO $BDDAT 









S$GDDAT , SBDDAT : COMPARE VALUE EXPECTED TO READ 
2$ ;;BR IF SAME 
Fervor :FAILED TO LOAD DPC WITH A FLOATING 1 


BR 
ASL $GDDAT “ CHANGE DATA EXPECTED 
1$ ;BR IF NOT COMPLETED 





















#1$,$LPERR :SET UP SCOPE LOOP ADRS 
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002030 
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174614 
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PAGE 9-7 
TEST THAT THE RELOCATE REG WILL CORRECTLY SET UP THE DPC 


#B1T12,aSTKPT 
DPC ,$BDADR 
DPC 


a 

#100, $GDDAT 
#1,RO 
RO,@RLO 
aDPC , $BDDAT 
$GDDAT , SBDDAT 
2$ 

22 

#100, $GDDAT 
TST30 

RO 

1$ 


SET S ions SWITCH #1 
7 SET A REG 00 A 
CLEAR DPC 


SEXPECT Ma ree 
; START WITH 

LOAD RELOCATE REG 

TREAD RELOCATE 5reG - SHOULD BE TIMES 64. 
‘1S Hu _— 

“RELOCATE FAILED TO SET A DPC CORRECTLY 
;SET UP NEXT EXPECTED V 


ALUE 
:;G0 TO NEXT TEST IF ALL VALUES TESTED 
;SET UP NEXT PATTERN 
:GO TRY IT 


Went Stee PRR eeeREEESAEAARAARASREASAEEA RAR EARS SARA SRS EARS ARES SASS SS 


S*TEST 30 


TEST THAT RESET CLEARS THE D.P.C. 


eee e PPPS RRREASARAAARAASASALAREA RASA A AR ASRS RRR RRR RARER ASE SDD 


1ST30: 
#100, $TIMES 
#30,$TESIN 


@DPC ,S$BDDAT 
TST31 
32 


THESE TESTS USE MAINT. 


4° 5 100 ITERATIONS 
;SET TEST NUMBER IN APT MAIL BOX 


:45t UP REG ADRS 


S 00 

3SET MAINT SWITCH 41 
;LOAD EXPECTED 
;LOAD REGISTER 
 INITILIZE 
:READ D.P.C. REG. 
;;BR IF ALL BITS CLEARED 
:RESET FAILED TO CLEAR THE D.P.C. 


SWITCH 2 


CLEARER REE RE REE ARRERE ER EEEEREERK EAR EEEE ERE REE EK 


:*TEST 31 


LGAD #17 INTO THE ‘MODE’ REGISTERS 


Rete ESSA EAES SSAA SARARARE ESSE SA ARR SAAR SAAR RRR RRR R ARSED SDSS Bs 


TS131: 
#31,$TESTN 


#174000. sBUFFER 
774000, SEDDAT 


$GDDAT , $BDDAT 
TST32 


7;SET TEST NUMBER _IN APT MAIL BOX 
SET UP REG ADRS 


02 
;SET MAINT SWITCH #2 
; LOAD MODE REGISTER=17 
LOAD DISPLAY PC. 
‘LOAD EXPECTED 
the al STATUS REGISTER 


READ 
;MASK TO BITS 1 
; COMPARE EXPCT TO RCVD 


;;BR IF EQUAL 
:MODE BITS (14-11) FAILED TO SET 


DDR RR ERE EER REE ERE REE REE EERE REET RE EEE REE EE 


i*TEST 32 


LOAD #10 INTO THE ‘MODE'’ REGISTERS 


SL AAA AAA AREER AEE AREREAA AER 


TST32: SCOPE 
MOV #32, $TESIN 


32SET TEST NUMBER IN APT MAIL BOX 


SEQ 0030 
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CZ2VSAB.P11. 29=MAY=79 10:10 T32 LOAD #10 INTO THE ‘MODE'' REGISTERS SEQ 0031 
"249 005430 013737 002032 001122 MOV SREGO,$BDADR =; SET _ UP REG ADRS 02 
750 005436 012777 020000 174416 MOV #RIT13 asTKOT :SET MAINT SWITCH #2 
751 005444 012737 140000 031076 MOV #140000,BU ;LOAD MODE REGISTER=10 
752 005452 013777 002000 174350 MOV DBUF abe “LOAD DISPLAY P.C. 
753 005460 012737 040000 001124 MOV Daur ae ;LOAD EXPECTED 
754 005466 017737 174340 001126 MOV @SREGO, SBDDAT *READ DISPLAY STATUS REGISTER 
755 005474 042737 103777 001126 BIC #103777,$BDDAT ;MASK TO'BITS 14-11 
756 005502 023737 001124 001126 CMP $GDDAT, $BDDAT aie EXPCT TO RCVD 
757? 005510 001401 BEQ TST33 ::BR IF EQUA 
258 005512 104003 ERROR 3 ‘MODE BIT 14" FAILED TO SET 
760 VECO SAAASBAR A £222 CESSES RRRSSSSE SESS SER ARA RAR RRA SAR SAAR SRS EAR SES SS 
(3) Se TEST 33 LOAD 414 INTO THE ‘MODE'’ REGISTERS 
(3) MRR AROSAAAASAASLAZALALSZALASAESASES SESE SES RRS ARR SASRA SEER RASA REARS ASE S SS 
(2) 005514 000004 15733: SCOPE 
(2) 005516 012737 000033 001206 MOV #33, $TESTN :;SET TEST NUMBER IN APT MAIL BOX 
761 005524 013737 002032 001122 MOV SREGO,$BDADR = SET UP REG ADRS 02 
762 005532 012777 020000 174322 MOV #BIT13,aSTKPT SET MAINT SWITCH #2 
763 005540 012737 160000 031076 MOV #160000 BUFFER LOAD MODE REGISTER=14 
764 005546 013777 002000 174254 MOV DBUF , @DPC [LOAD DISPLAY P.C. 
765 005554 012737 060000 00117% MOV #60000,$GDDAT LOAD EXPECTED . 
766 005562 017737 174244 001126 MOV @SREGO, $BDDAT READ DISPLAY STATUS REGISTER 
767 005570 042737 103777 001126 BIC #103777,$BDDAT ;MASK TO BITS 14-11 
768 005576 023737 001124 001126 CMP $GDDAT, $BDDAT COMPARE EXPCT TO RCVD 
769 005604 001401 BEQ TST36 ::BR IF EQUAL 
770 005606 104003 -ERROR 3 ‘MODE BIT 13 FAILED TO SET 
772 re ee ee ne ee ee ee 
(3) S*TEST 34 LOAD #16 INTO THE ‘MODE'' REGISTERS 
(3) MERA RASSAASA£ ARES SESSRSSASRSRSES ESAS SESE SSSR SAR RRR SARA RRR ARERR SESE SD 
(2) 005610 000004 TST34: SCOPE 
(2) 005612 012737 000034 001206 MOV #34,$TESIN :iSET TEST NUMBER IN APT MAIL BOX 
773 005620 013737 002032 001122 MOV SREGO,$BDADR :SET UP REG ADRS 02 
774 005626 012777 020000 174226 MOV #B1T13,aSTKPT :SET MAINT SWITCH #2 
775 005634 012737 170000 031076 MOV #170000,BUFFER ;LOAD MODE REGISTER=1 
776 005642 013777 002000 174160 MOV DBUF , aDPC SLOAD DISPLAY P.C. 
777, 005650 012737 070000 001124 MOV #70000, SGDDAT :LOAD EXPECTED 
778 005656 017737 174150 001126 MOV @SREGO, $BDD READ DISPLAY STATUS REGISTER 
779 005664 042737 103777 001126 BIC #103777, SBDDAT :MASK TO BITS 14-11 
780 005672 023737 001124 001126 CMP S$GDDAT, $BDDAT ; COMPARE EXPCT TO RCVD 
781 005700 001401 BEQ TST35 ::BR IF EQUAL 
782 005702 104003 ERROR 3 ‘MODE BIT 12 FAILED TO SET 
783 6g RAARAARAAEARARARARREREAAARAAAEAERARAERAERARAAERRAARARARERARAREEREHE 
(3) ‘SRTEST 35 SIMPLE INCREMENT D.P.C. TEST 
(3) LL RARE RRR A EERE ER EE E REE ARE ERE AEEREEEEREER EEE 
(2) 005704 000004 15135: SCOPE 
(2) 005706 012737 000035 001206 MOV #35,STESIN ::SET TEST NUMBER IN APT MAIL BOX 
005714 013737 002030 001122 MOV DPC. $BDADR :SET UP REG ADRS 00 
785 005722 012777 020000 174132 MOV #B1T13,aSTKPT SET MAINT SWITCH #2 
005730 012700 031076 MOV #BUFFER,RO :LOAD BUFFER POINTER 
787 005734 012720 164000 MOV #164000.(RO)+  :LOAD DISPLAY NOP 
788 005740 012720 164000 MOV #164000, (RO)+ 
789 005744 012720 164000 MOV #164000. (RO) + 
005750 012720 164000 MOV #164000, (RO) + 
791 005754 013777 002000 174046 MOV DBUF :START THE DISPLAY 
792 005762 012737 031100 001124 MOV coeteres. SGDDAT™ :LOAD EXPECTED 


G 
‘ivan Pit VS60 Sadness TEST PART 1 MACY11 30G(1063) 17-SEP-79 43 . 9-9 


SAB.P11 29-MAY-79 10:1 T35 SIMPLE INCREMENT D.P.C. TES SEQ 0032 
793 005770 017737 174034 001126 MOV @DPC ,SBDDAT ZREAD THE ale P.C. 
794 005776 023737 001124 001126 CMP $GDDAT , $BDDAT : TEST FOR INCREMEN 
795 006004 001402 BEQ 1$ 
006006 104004 ERROR 4 “DISPLAY P.C. FAILED TO INCREMENT 
797 006010 000451 BR TST36 33 
798 906012 005277 174012 1$: INC aDPC sSTEP THE DISPLAY P.C. 
799 006016 062737 000002 001124 ADD #2, $GDDAT ;UPDATE EXPECTED 
006024 017737 174000 001126 MOV aDPC ,SADDAT ;READ THE DISPLAY P.C. 
801 006032 023737 001124 001126 CMP $SGDDAT , $BDDAT ZTEST FOR INCREMENT 
802 006040 001402 BEQ 2$ Z 
803 006042 104004 ERROR 4 DISPLAY P.C. FAILED TO INCREMENT 
006044 000433 QR TST36 s3 
805 006046 2$: 
(1) 006046 005277 173756 INC aDPC SINGLE STEP THE DISPLAY 
006052 062737 000002 001124 ADD #2, $GDDAT [UPDATE EXPECTED 
807 006060 017737 173744 001126 MOV aDPC , $BDDAT *READ THE DISPLAY P.C. 
808 023737 001124 001126 CMP $GDDAT , $8DDAT ; TEST FOR INCREMENT 
006074 001402 BEQ 3$ 
810 006076 104004 ERROR 4 sDISPLAY P.C. FAILED TO INCREMENT 
811 006100 000415 BR TST36 s3 
812 006102 3$: 
(1) 006102 005277 173722 INC aDPC :SINGLE STEP THE DISPLAY 
813 006106 062737 000002 001124 ADD #2, $GDDAT ;UPDATE EXPECTED 
814 006114 017737 173710 001126 MOV @DPC ,S$BDDAT ;READ THE DISPLAY P.C. 
815 006122 023737 001124 001126 CMP $GDDAT , $BDDAT s TEST FOR INCREMENT 
816 006130 001401 BEQ TST36 >;BR IF EQUAL 
at 006132 104004 ERROR 4 = DISPLAY P.C. FAILED TO INCREMENT 
819 LTR 
(3) Z*TEST 36 EXPANDED D.P.C. INCREMENT TEST 
(3) LTA RARER REE RE RE EKER REE EEEREERERERRERKEKEEKRE EER ERRA ERE KE 
(2) 006134 000004 TST36: SCOPE 
(1) 006136 012737 000040 001166 MOV #40,$TIMES :D0 40 ITERATIONS 
(2) 006144 012737 000036 001206 MOV #36,$TESTN ;SET TEST NUMBER IN APT MAIL BOX 
820 006152 013737 002030 001122 MOV DPC, $BDADR SET UP REG ADRS 00 
821 006160 012777 020000 173674 MOV weit l3, @STKPT :SET MAINT SWITCH 42 
822 006166 013702 002000 MOV R2 :SET UP POINTER 
823 006172 012722 164000 1S: MOV 9766000, (R2)+ *MOVE DNOP INTO THE BUFFER 
824 006176 023702 002020 CMP SIZE,R2 sFINISHED FILLING THE BUFFER? 
825 006202 001373 BNE 1$ NO 
826 006204 013777 002000 173616 MOV DBUF , aDPC :YES, START THE DISPLAY 
827 006212 012737 031076 001124 MOV ABUFFER,$GDDAT ;LOAD EXPECTED 
828 006220 013702 002020 MOV SIZE,R2 ;SETUP A COUNT 
829 006224 024242 CMP -(R2) ,-(R2) “DEC BY 2 
830 006226 062737 000002 001124 2%: ADD #2,$GDDAT ; UPDATE is b 
831 006234 017737 173570 001126 MOV aDPC ,$BDDAT sREAD DISPLAY P.C. 
832 006242 023737 001124 001126 CMP $GDDAT, $BDDAT -DID IT INCREMENT BY 2? 
833 006250 001402 BEQ 3$ YES 
834 006252 104004 ERROR 4 “DISPLAY PC FAILED TO INCREMENT 
24 006254 000406 BR TST37 23 
837 006256 9020237 001124 3$: CMP R2,$GDDAT :F INISHED Mg BUFFER 
838 006262 001403 BEQ TST37 ;;BR TO NEXT TEST 
839 006264 005277 173540 INC aDPC : SINGLE STEP THE DISPLAY 


840 006270 000756 BR 2$ 7 TRY AGAIN 
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C2VSAB.P11.- 29=MAY=79 10:10 137 TEST THAT THE NAME INSTR CAN FLOAT A ONE THRU DPU NAME REG SEQ 0033 
842 MeBASBABBASZBAAASAAALASSALELARSA SESE SERA A RAR RR RRR REAR RRR RRR RSA SRSA SSS SS 
(3) *STEST 37 TEST THAT THE NAME INSTR CAN FLOAT A ONE THRU DPU NAME REG 
(3) TPRBBRBABSAASAASLALAAALALASASALESASRESSA SESE SERRA RRR SSR SSR RRR RSE R SASS SE SS 
(2) 006272 000004 +8137: SCOPE 
(2) 006274 012737 000037 001206 MOV #37, $TESTN ::SET TEST NUMBER IN APT MAIL BOX 
843 006302 012777 020000 173552 MOV #81713, aSTKPT 7SET MAINT SWITCH #2 
844 006310 012737 006324 001110 MOV #1$,$LPERR ;SET UP SCOPE LOOP ADRS 
845 006316 012737 002000 001124 MOV #2000,$GDDAT  :SET UP MSB 
846 006324 012737 150000 031076 18: MOV #150000,BUFFER :SET UP INSTR LOC 
847 006332 053737 001124 031076 BIS $GDDAT,BUFFER :SET NAME BIT AT INSTR LOC 
848 006340 012777 031076 173462 MOV WBUFFER,@DPC =: START 
849 006346 013737 002054 001122 MOV DNAME $BDADR =: SET UP REG ADRS 24 
850 006354 017737 173474 001126 MOV QDNAME,SBDDAT =READ NAME REG 
851 006362 042737 174000 001126 BIC #174000,$BDDAT ONLY INTERESTED IN THE NAME BITS 
852 006370 023737 001124 001126 CMP $GDDAT,$B8DDAT  :DID IT act LOADED PROPERLY? 

853 006376 001401 BEQ 2$ ‘BR IF 

854 006400 104023 ERROR 23 DPU NAME INSTR R ER 

855 006402 006237 001124 2$: ASR $GDDAT ‘SHIFT ‘ONE’ BIT RIGHT 

856 006406 103346 BCC 1$ ‘BR IF MORE Bi Tet T IONS 

858 STARE ERR REE REE REE EERE EEE REE EERE REE EEE KEE RE ; 
(3) :*TEST 40 TEST THAT THE NAME INSTR CAN FLOAT A ZERO THRU DPU NAME REG 
(3) DD IRR RK KER EEE KEKE ERE REE REE KEKE EKER ERE EERE EEE 
(2) 006410 000004 TST40: SCOPE 

(2) 006412 012737 000040 001206 MOV #40,$TESTN :z:SET TEST NUMBER IN APT MAIL BOX 
859 006420 012777 020000 173434 MOV #81713, aSTKPT 7SET MAINT SWITCH #2 

860 006426 012737 006440 001110 MOV #1$,$LPERR :SET UP SCOPE LOOP ADRS 

861 006434 012700 175777 MOV #175777,RO :SET MSB TO A ZERO 

862 006440 010037 001124 1$: MOV RO, $GDDAT =PUT PATTERN IN COMPARE LOC 

863 006444 042737 174000 001124 BIC #174000, $GDDAT :GET RID OF EXTRA BITS 

864 006452 012737 150000 031076 MOV #150000.BUFFER SET UP INSTR 

865 006460 053737 001124 031076 BIS $GDDAT ,BUFFER ;SET UP PATTERN AT INSTR LOC 

866 006466 012777 031076 173334 MOV WBUFFER,@DPC START 

867 006474 013737 002054 001122 MOV DNAME,$BDADR = SET UP REG ADRS 24 

868 006502 017737 173346 001126 MOV @DNAME,$BDDAT :READ NAME REG 

869 006510 042737 170000 001126 BIC #170000,$BDDAT :ONLY INTERESTED IN THE NAME BITS 
870 006516 023737 001124 001126 CMP $GDDAT,$BDDAT :DID IT GET LOADED PROPERLY? 

871 006524 001401 BEQ 2$ ‘BR IF OK 

872 006526 104023 ERROR 23 *DPU NAME INSTR ER 

873 006530 006200 2$: ASR RO SSHIFT ZERO BIT RIGHT 

874 006532 103742 BCS 1$ ‘BR IF MORE BIT POSITIONS 

876 CURA EREEREREEKEEREERERRAERREERAREERAEEREREKK EEE 
(3) S*TEST 41 TEST THAT RESET WILL CLEAR DPU NAME 

(3) DL AAR KERR ERK REAR EERE KEE REE REE KEE RERERRERERA REE 
(2) 006534 000004 TST41: SCOPE 

(1) 006536 012737 000040 001166 MOV #40, $TIMES : £00 40 ITERATIONS 

(2) 006544 012737 000041 001206 MOV #41_$TESIN SET TEST NUMBER IN APT MAIL BOX 
877 006552 012777 020000 173302 MOV #BIT13,aSTKPT :SET MAINT SWITCH 2 

878 006560 905037 001124 L $GDDAT SEXPECT ALL ZEROS | 

879 006564 012737 153777 031076 MOV #153777,BUFFER SET up NAME INSTR 

880 006572 012777 031076 173230 MOV #BUF FER. aDPC : 

881 006600 013737 002054 001122 MOV DNAME , $BDADR ‘cer lp REG ADRS 2 

882 006606 000005 RESET [CLR DPU NAME R 

883 006610 017737 173240 001126 MOV @DNAME ,$BDDAT  :READ IT 

884 006616 001401 BEQ TST42 ‘NEXT TEST IF ALL CLEARED 
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7VSAB.P14 29=MAY=79 10:10 141 TEST THAT RESET WILL CLEAR DPU NAME SEQ 0034 
885 006620 104023 ERROR 23 ;RESET FAILED TO CLEAR DPU NAME 

? MASBAABEASSZAASZAALA£ £222 SERS SLESRSSE SESE SSSA SER ERS RAR AE AAR EER AAS SS SS 7 
(3) tSTEST 42 TEST THAT THE SEARCH CODE BITS CAN BE READ AT REG 24 
(3) MeOeBARBBBAAASAAASL£A£LA 2 SLSR SLSASESESS ESE SER ESE SR ESAS SAAR RRS S RS ESAS SS SS 
(2) 006622 000004 $142: SCOPE 
(2) 006626 012737 000042 001206 MOV #42, $TESTN :SET TEST NUMBER IN APT MAIL BOX 
888 006632 012737 001110 MOV #1$,S$LPERR SET UP SCOPE LOOP ADRS 
889 006640 013737 002054 091122 MOV DNAME ,$BDADR  :SET UP REG 24 ADRS 
890 006646 012737 030000 001124 MOV #30000,$GDDAT EXPECT BOTH BITS INITIALLY 
891 006654 012700 070000 MOV #70000,RO :SET UP RO WITH ENABLE 
892 006660 010077 173164 1$: MOV RO. aANAME :SEND SEARCH CODE 
893 006664 017737 173164 001126 MOV @DNAME ,SBDDAT  ;READ IT BACK 
894 006672 042737 147777 001126 BIC et $BDDAT :SAVE ONLY SEARCH COPE 
895 006700 923737 001124 001126 CMP SGDDAT,$BDDAT IS 17 CORRECT? 
896 006706 001401 BEQ 2$ :BR IF OK 
897 006710 104024 ERROR 24 SEARCH CODE READ/WRITE ER 
898 006712 162700 010000 2$: SUB #10000,RO ‘SET UP NEXT SEARCH CODE 
899 006716 162737 010000 001124 SUB #10000. $GDDAT :SET UP NEXT SEARCH CODE 
300 006724 100355 BPL 1$ ‘BR IF MORE CODES TO TEST 
902 FL RRR KERR EEEREREREERERERRE ERE REE 
(3) T*TEST 43 TEST THAT THE SEARCH CODE DOES NOT CHANGE WHEN ENA=0 
(3) CLEAR RRR EER REE REE ER EKER EER ERE ERR ERE ERE ERE RH 
(2) 006726 000004 1S143: SCOPE 
(2) 006730 012737 000043 001206 MOV #43, $TESTN ziSET TEST NUMBER IN APT MAIL BOX 
903 006736 013737 002054 001122 MOV DNAME , $BDADR SET UP REG 24 ADRS 
904 006744 012737 030000 001124 MOV #30000, SGDDAT EXPECT BOTH BITS 
905 006752 012777 070000 173070 MOV #70000. @ANAME  :LOAD UP SEARCH CODE 
906 006760 005077 173064 CLR @ANAME :TRY TO CLR SEARCH CODE WITK FNA=0 
907 006764 017737 173064 001126 MOV @DNAME ,SBDDAT  :READ IT BACK 
908 006772 042737 147777 001126 BIC #147777,$BDDAT :SAVE ONLY SEARCH CODE 
909 007000 023737 001124 001126 CMP $GDDAT . $BDDAT :1S IT CORRECT? 
910 007006 001401 BEQ TST44 sADVANCE TO NEXT TEST IF OK 
a1) 007010 104024 ERROR 24 : SEARCH CODE CHANGE ENABLE ER 
913 CD RRR EERE EKER EERE REE REE ERE REE REAR EREREA KERR H 
(3) T*TEST 44 TEST THAT RESET WILL CLEAR SEARCH CODE 
(3) JL ARR EREKERREKREREREREREREKEEKEEREEREKEEREEREEEREKRERER EE RERKKR KH 
(2) 007012 000004 TS$144: SCOPE 
(1) 007014 912737 000040 001166 MOV #40, $TIMES 72D0 40. ITERATIONS 
(2) 007022 012737 000044 001206 MOV #44, $TESIN SET T ST NUMBER IN APT MAIL BOX 
914 007030 013737 002054 001122 MOV DNAME,$BDADR  :SET we REG 24 ADR S 
915 007036 005037 001124 CLR $GDDAT SEXPECT RESET STATE 
916 007042 012777 070000 173000 MOV #70000,@ANAME  :SET BOTH SEARCH CODE BITS 
917 007050 000005 RESET ‘CLR THEM 
918 007052 017737 172776 001126 MOV @DNAME,$BDDAT  =READ REG 
919 007060 001401 BEQ TST45 *:NEXT TEST IF ALL CLEARED 
920 007062 104024 ERROR 24 sRESET FAILED TO CLR SEARCH CODE 
922 LPR ERR ERE REE REE ROR E REE EREEEREEA RE EEA EE EEREEA RE KEEEH 
(3) S*TEST 45 TEST THAT THE NAME MATCH FLAG WILL SET ON 4 BIT COMPARES 
(3) DEAR EAEEEEEERE RAE EEE REE AERA EERE EEE S EERE 
(2) 007064 000004 15145: SCOPE 
(1) 007066 012737 000010 001166 MOV #10, $TIMES ::D0 10 ITERATIONS 
(2) 007074 012737 000045 001206 MOV #65.$TESTIN -  ::SET TEST NUMBER IN APT MAIL BOX 
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012777 


002054 
172642 
001124 
100000 


100000 
001124 
100000 
000200 


000200 
027600 


172416 
001124 
100000 


100000 
001124 


172630 
001122 
001726 
001126 


001124 


172456 


001124 
031076 


172404 
001122 
001126 
001126 
001124 


001126 
001126 


MACY11 goo 
145 T THAT THE NAME MATCH FL, % 


1$: 


2s: 


3$: 


4$: 


. 
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#B1T13,@STKPT 
40,PSwW 


#3600,R 
#144000, $GDDAT 
#150000, BUFFER 
RO, BUFFER 

#BUF FER, aDPC 
DNAME , SBDADR 
QDNAME . SBDDAT 


tino atammases 
ca een 


4 
#100000, $BDDAT 
$GDDAT , $BDDAT 


4$ 
oo 
#200,R0 

2$ 


#200, $GDDAT 
#27600, $GDDAT 


WILL SET ON 4 BIT COMPARES 


SET MAINT SWITCH #2 
SET UP PRIORITY TO HIGHEST LEVEL 
SET UP go 4 ADRS 
START WITH MAX VALUE 
SET THE SEARCH CODE ENA BIT 
SET UP ASSOCIATIVE NAME REG 
;SET UP_RO WITH MAX VALUE 
7CLR MATCH FLAG .. SEARCH ENA BIT 
7SET UP NAME INSTR 
SET UP NAME VALUE 
; START 


3SET UP REG ADRS 24 

[READ NAME REG 

7BR IF A MATCH OCCURRED 

; SHOULD Mae HAVE OCCURRED? 


BR IF NO 

INDICATE IT SHOULD BE SET 
NAME MATCH ~ FAILED TO SET 
;CLR OUT MATCH FLAG BIT 

MAKE SURE THERE IS A MATCH 


;BR IF OK 

sRESTORE THE MATCH FLAG BIT 

NAME MATCH ‘— SET IN ER 
sADVANCE NAME VALUE 

7BR IF MORE VALUES TO TEST 
;ADVANCE VALUE FOR ASSO. NAME REG 
sHAVE ALL VALUES BEEN TESTED? 

‘BR IF NOT 


et ee ee te Pe Se eReeSASEARRASASARAAASLALASE SESSA AAA REAR RAS ASAD S SDD | 


: *TEST 46 


18146: 


1$: 


3$: 


TEST THAT THE NAME MATCH FLAG WILL SET ON 8 BIT COMPARES 


MASSA ASAASASLARESSALASLARASALASERASE ARERR ARRAS SARA R RR AA ASAD ES DD | 


#4 ,$TIMES 
#46,$TESTN 
AEP 2 @STKPT 


4770 -R 

4344060. SGDDAT 
#150000, BUFFER 
RO, BUFFER 
SOUETER. aDPC 


+ ea mamas 
| ee imanate! 


4 
#100000, $8DDAT 
ated damned 


+ FS 4 ITERATIONS 
T TEST NUMBER _IN APT MAIL BOX 
SET MAINT SWITCH #2 
;SET PRIORITY TO HIGEST LEVEL 
; LOOP ADRS 


: IT 

SET UP aye ey ae REG 
SET UP_RO WITH MAX VALUE 
[CLR MATCH FLAG & SEARCH ENA 
7SET UP NAME INSTR 

a NAME VALUE 


:SET UP REG —— 24 
;READ NAME R 


G 
7BR IF A MATCH OCCURED 
ea HAVE OCCURED? 


: INDICATE IT SHOULD BE SET 
NAME MATCH Ae fea Ai TO SET 
7CLR OUT MATCH FLAG BIT 

[MAKE SURE THERE IS A MATCH 
‘BR IF OK 


SEQ 0035 
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007500 
007506 


052737 


29-MAY-79 10: 


100000 
000010 


000010 
017770 


172176 
001124 
100000 


100000 
001124 
100000 


001124 
007777 


PART 1 


001126 


172240 


001124 
031076 


172166 
001122 


001126 
001126 
001124 


001126 
001126 


001126 


001124 


001166 
001206 
172066 


172046 
031076 


172006 
001122 


MACY11 30G6(1063) 
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4$: 


K 
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TEST THAT THE NAME MATCH FLAG WILL SET ON 8 BIT COMPARES SEQ 0036 


en 
#10,R0 
2$ 


#10, $GDDAT 
#17770, $GDDAT 


RESTORE THE MATCH FLAG BIT 

;NAME MATCH FLAG SET IN ER 
ADVANCE NAME VALUE 

7BR IF MORE VALUES TO TEST 
ADVANCE VALUE FOR ASSO. NAME REG 
HAVE ALL VALUES BEEN TESTED? 

:BR IF NOT 


ROSSA ASAAALALLESLALAALAASARASAASARS SALAS SAE A SARA RAS ESAS SASS SD 


S*TEST 47 


TST47: 


1$: 


2$: 


3$: 


4$: 


SCOPE 


TEST THAT THE NAME MATCH FLAG WILL SET ON 11 BIT COMPARES 


SRR REE REE REE REE EEK EERE EERE EEK EEE EER EER 


#2,$TIMES 

#47, $TESTN 
#81T13,aSTKPT 

#2$,$LPERR 

#10077, $GDDAT 

#44000, $GDDAT 

$GDDAT . @ANAME 

#77,R 

#144000, $GDDAT 

4 ert? BUFFER 
BUFFER 


WBUFFER. aDPC 
DNAME , SBDADR 


 Whenmeue 
$GDDAT , SBDDAT 
#100000, $GDDAT 
24 


#100000 , SBDDAT 
) “ta ama 


#100000 , $8DDAT 
24 
RO 
2s 


$GDDAT 
dE aes 


et 2_ITERATIONS 
;SET TEST NUMBER _IN APT MAIL BOX 
SET MAINT pg #2 
;SET UP SCOPE _LOOP ADRS 
SSTART WITH 77 = WORK ONLY LOWER ORDER BITS 
3SET SEARCH ENA BIT 
:SET UP ete Se NAME REG 
T UP_RO WITH 77 
tir MATCH FLAG. . SEARCH ENA 
7SET UP NAME INS 
SET UP NAME VALUE 
7 START 


SET UP_REG ADRS B 
;ALL OW TIME FOR NP 
;READ NAME REG 
7BR IF A MATCH OCCURED 
;SHOULD A MATCH HAVE OCCURED? 
BR IF NOT 


: INDICATE IT SHOULD BE SET 
MATCH FLAG FAILED TO SET 

SCLR OUT MATCH FLAG BIT 

MAKE —_ THERE IS A MATCH 


RESTORE THE MATCH FLAG BIT 

NAME MATCH FLAG SET IN ER 
SADVANCE NAME VALUE 

:BR IF MORE rg TEST 
ADVANCE VALUE F SSO. NAME REG 
HAVE ALL_VALUES oBEEN TESTED? 

BR IF NOT 


FT ARERR EEE REEL EERE KARE ERE 


S*TEST 50 


TST5O 


SCOPE 


TEST THAT RESET WILL CLEAR THE NAME MATCH FLAG 


J UAE REE RARER EEE 


#40,S$TIMES 
#50. $TESTN 
#81113, aSTKPT 
#57777 . @ANAME 
#153777,BUFFER 
SGDDAT 

#BUF FER, aDPC 
DNAME , SBDADR 


; DO Be ITERATIONS 
TEST NUMBER IN APT MAIL BOX 
“SET MAINT SWITCH 2 
7 SET ANAME ye Bt BIT COMPARE ON 3777 


1 UP NAME 
EXPECT ALL ZEROS 
7 START 
fit UP REG ADRS 24 


&. 
nur 
m 


R DPU NAME REG (MATCH) 
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010152 


010154 
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at 


172016 


171522 


171504 


001124 


PART 1 


001126 


001206 


001124 
031076 


171514 
001122 


001126 


001126 


MACY11 30G6(1063) 
T50 


MOV 
BEQ 
ERROR 


L 
17=SEP=79 08:43 PAGE 9-14 
TEST THAT RESET WiLL €LEAR THE NAME MATCH FLAG 


@DNAME , SBDDAT 
TST51 
23 


aed IT 
NEXT TEST IF ALL CLEARED 
:RESET FAILED TO CLEAR NAME MATCH 


MeSOSSSSASELA£AL£SELESALSASE SARE ALAS RAS EAA REAR RSA RRR REAR EDD D SS 


TRTEST 51 


TSTS1: 


SCOPE 


TEST THAT THE ASSOCIATIVE NAME REG DOES NOT CHANGE WITH ENA=0 


eTetiitiiiiiiiittititiiiiiitiititti iti i iii ti iit iiti iit iris, 


#51, $TESTIN 
#81713, aSTKPT 
#340,PSW 

DNAME , S8DADR 
#57777 , @ANAME 


#50000, @ANAME 
#153777 ,BUFFER 
#BUF FER, aDPC 
#113777. $GDDAT 
@DNAME , $BDDAT 
$GDDAT . $BDDAT 


TST52 
24 


73SET TEST y oaia IN APT MAIL BOX 
SET MAINT SWITCH #2 

;DON'T ALLOW ao eh 

SET UP REG 24 AD 

7SET UP FOR 11 alt CMP ON VALUE 43777 

SNOW TRY WRITING 0 WITH ENA DISABLED 

tie NAME INSTR WITH VALUE #3777 


ZEXPECT NAME MATCH ON 11 BIT CMP VALUE #3777 
GET DPU NAME RES CONTENTS 
21S THERE A MATCH? 
ADVANCE TO NEXT TEST IF SO 
“ASSOCIATIVE NAME CHANGE ENABLE ER 


COROT ROTO AA AAAS ISIS SSI ISIS SISISSSSSISSSSSSAASN 


:*TEST 52 


TST52: 


1$: 


2s: 


3$: 


4$: 


SCOPE 


TEST THAT AN INTERRUPT WILL OCCUR ON 11 BIT NAME MATCH COMPARES 


DR RRR EERE ERR EERE REE EEREEEEREEEKEERERERREKEE 


#2,$TIMES 
#52, $TESIN 
#B1T13,aSTKPT 


PSW 
@DNAME , SBDDAT 
4$ 

47 
5$ 

(R6)+, (R6)+ 
alana 


47 
RO 


2$ 
SGDDAT 


3;D0 2 ITERATIONS 

3;SET TEST NUMBER _IN APT MAIL BOX 
7SET_MAINT SWITCH #2 

;SET PSW TO 7 

SET UP og ag ADRS 


[START WITH MAX VALUE 
>SET SEACH CHANGE & NAME 
2SET UP ASSOCIATIVE NAME 
SET UP RO WITH MAX VALUE 
:CLR ENA BITS 

SET UP NAME INSTR 

:SET UP NAME VALUE 


;SET UP REG ADRS 24 


CHANGE ENABLES 
REG 


NO 
NAME MATCH FAILED TO_INTERRUPT 
:GO LOOK FOR LOOP S TEST SWITCH 
FIX STK SINCE NO RTI 
[READ NAME REG 
7BR IF MATCH FLAG SET 
NAME MATCH INTERRUPTED BUT NO FLAG 
;ADVANCE NAME VALUE IN RO 
[BR IF MORE VALUES TO TEST 
ADVANCE VALUE FOR ASSO. NAME REG 


SEQ 0057 


CZVSA-8 VS60 INSTRUCTION TEST 
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1 


(2) 


33 


mm ed ed od od od 
SEQESRASLS 


a ss — 2 FH YH 


_ 
o 


010366 
010374 
010376 


010566 
010570 


010572 
ay cha! 
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022737 
001324 
004737 


10:10 
007777 
024454 


001124 


PART 1 


001124 


001126 


001126 


——O 
NNO 
= — 
Mm—Nrnr 
OAWMo 
SMNO 


228-2 — 
SONONNNN 
kk ek ed ed ad od 
w= 

Nm 

Nm 


S 
o 
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S$: 


T THAT AN INTERRUPT WILL OCCUR ON 17 BIT NAME MATCH COMPARES 
CMP #7777 ,SGDDAT SEE IF ALL VALUES HAVE BEEN TESTED 
1$ BR IF NOT 


BNE 
JSR PC,RSTVEC sRESTORE NAME MATCH VECTOR WITH HALT 


FARRER REE REE REE RE RERERRE EEE EREAKEREEREEERRER ERE 


S*TEST 53 LOAD #1 INTO LINE TYPE REGISTERS 


FL RARER ERR REE ERE EERE EE REE EAERAERREEEREREREREEERE EE 


TST53: 


SCOPE 

MOV #53, $TESTN :3SET TEST NUMBER _IN APT MAIL BOX 
MOV #B1T13,aSTKPT ;SET MAINT SWITCH #2 

MOV #100005,aDBUF ;LINE TYPE ENABLE =1 LINE TYPE =1 
MOV #1 - toes LOAD EXPECTED 

MOV DBUF , aDPC ; LOAD DISPLAY P.C. 


MOV SREGO. S$BDADR SET UP REG ADRS 02 

MOV @SREGO, $BDDAT READ DISPLAY STATUS REGISTER 
BIC #177774, $BDDAT ;MASK TO BITS 1-0 

CMP $GDDAT , SBDDAT alga EXPCT TO RCVD 

BEQ TST54 ;;BR_IF EQUA 

ERROR 5 sLINE BIT 0 FAILED TO SET 


CT RRR EKER EEK EEK ERK EKEEEEKEEKEEEEEEK EK 


s*TEST 54 LOAD #2 INTO LINE TYPE REGISTERS 


ST REE REE EEA EKER ERE EEE KEE EKER ERE EEE EERE EEE 


TST54: SCOPE 
MOV #54, $TESTN ;3SET TEST NUMBER IN APT MAIL BOX 
MOV #B1T13,aSTKPT SET MAINT SWITCH #2 
MOV #100006,aDBUF ;LINE TYPE ENABLE =1 LINE TYPE =2 
MOV #2. SCDvAT LOAD EXPECTED 
MOV :LOAD DISPLAY P.C. 
MOV BAGO. SBDADR :SET UP REG ADRS 02 
MOV @SREGO, $BDDAT :READ DISPLAY STATUS REGISTER 
BIC #177774,$BDDAT ;MASK TO BITS 1-0 
C SGDDAT, $BDDAT : COMPARE EXPCT TO RCVD 
BEQ TST55 ::BR IF EQUAL 
ERROR 5 ‘LINE BIT 1 FAILED TO SET 
MeOesSBeeeeeeeeseeeeeSeaLELASS ESSE SESE SESE SES RRR RRR R RRR ESSERE RRS SS SD 
tRTEST 55 CHECK LINE TYPE ENABLE GATS 
MASSA SAAASBAS2SA SS ESEESESLESES ESSERE SESE ESE SERS ESR ESR SERS ESSE SS SY 
i$155: SCOPE 
MOV #55, $TESIN ::SET TEST NUMBER IN APT MAIL BOX 


MOV #B1T13,aSTKPT 7SET MAINT SWITCH #2 
MOV #100007, @DBUF ;LINE TYPE ENABLE =1 LINE TYPE =3 


MOV DBUF , aDPC [LOAD DISPLAY P.C. 

MOV #100000, aDBUF 

MOV #3, $GDDAT LOAD EXPECTED 
MOV DBUF , aDPC 


MOV SREGO,$BDADR =; SET UP REG ADRS 02 

MOV a@SREGO, $BDDAT READ DISPLAY STATUS REGISTER 

BIC #177774,$BDDAT ;MASK TO’ BITS 1-0 

CMP $GDDAT, $BDDAT COMPARE EXPCT TO RCVD 

BEQ TST56 ::BR IF EQUAL 

ERROR 5 ‘LINE TYPE ENABLE FAILED TO INHIBIT 
‘CHANGING OF LINETYPE VALUE 


SEQ 0038 


———— 


N 
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CZVSAB.P11 29-MAY-79 10:10 156 LOAD #0 INTO BLINK REGISTERS ' SEG 0039 

1111 CDI IOI III IO IOI IOISIIOIIIIOIIOIIIU III IOIIDIOIIOIOIUIOIOIIOI OIC IOI 
+ Se :*TEST 56 LOAD #0 INTO BLINK REGISTERS 
(3) ZOO IOI III IOIIUISIOISIIOIIOIIOISIOIOIIOIOIUIOIIUICIOIOIUICIIOII I OIIOI IO IOI IIIS ASIAN 
(2) 010702 000004 TSTS56: SCOPE 
(2) 010704 012737 000056 001206 MOV #56, $TESTN ::SET TEST NUMBER _IN APT MAIL BOX 

1112 010712 012777 020000 171142 MOV #B1T13,aSTKPT ;SET MAINT SWITCH #2 

1113 010720 012777 100020 171052 MOV #100020,@DBUF ;BLINK ENABLE =1 BLINK =0 

1114 010726 5037 001124 CLR $GDDAT sLOAD EXPECTED ; 

1115 010732 013777 002 171070 MOV DBUF , aDPC LOAD DISPLAY P.C. 

1116 010740 013737 002032 001122 MOV SREGO, SBDADR :SET UP REG ADRS 02 

1117 010746 017737 371 001126 MOV @SREGO, SBDDAT READ DISPLAY STATUS REGISTER 

1118 010754 042737 177767 001126 BIC #177767, $BDDAT ;MASK TO BIT 3 

1119 010762 023737 001124 001126 CMP SGDDAT , SBDDAT COMPARE EXPCT TO RCVD 

1120 010770 14 BEQ TST57 :;BR IF EQUAL 

1121 010772 104027 ERROR 27 s;BLINK BIT FAILED TO RESET 

1122 DORI IIISISIIOIOIIDIOIIOIIIOIOIIIOIIIIOIIIOIOIOI III IOIIOIIOIOIOIOI TOTO TOOT TAIN 
(3) s*TEST 57 LOAD #1 INTO BLINK REGISTERS 
(3) SRO IICIOIIOR IORI R TOTO IOIOIOTOIOTORSOIOIOSOTO IOI IIIA SISA SIA SASSA SIM 
(2) 010774 000004 TST57: SCOPE 
(2) 010776 012737 000057 001206 MOV #57, STESTN 3;SET TEST NUMBER _IN APT MAIL BOX 

1123 011004 012777 020000 171050 MOV #81713, @STKPT SET MAINT SWITCH #2 

1124 011012 012737 100030 031076 MOV #100030,BUFFER ;BLINK ENABLE =1_ BLINK =1 

1125 011020 012737 000010 001124 MOV #10,$GDDAT ;LOAD EXPECTED 

1126 011026 013777 002000 170774 MOV DBUF , @DPC LOAD DISPLAY P.C. 

1127 011034 013737 002032 001122 MOV SREGO, SBDADR ;SET UP REG ADRS 02 

1128 011042 017737 170764 001126 MOV @SREGO, SBDDAT sREAD_DISPLAY STATUS REGISTER 

1129 011050 042737 177767 001126 BIC #177767, $BDDAT ;MASK TO BIT 3 

1130 011056 023737 001124 001126 CMP $GDDAT , SBDDAT COMPARE EXPCT TO RCVD 

1131 011064 001401 BEQ TST60 3;BR IF EQUAL 

1132 011066 104027 ERROR 27 :;BLINK BIT FAILED TO SET 

1134 

1135 CDI IO IIIS III IOIOIOIDISIIDIOIOIOIIIOIIIIOIIOIOIOIOIOIIOIOITIO IIT ITO IOS IIS IAS S 
(3) 7*TEST 60 CHECK BLINK ENABLE GATE 
(3) DIT III III IOIIICISIOIOIIOIOIOIOIOIIOIOIIOIOIOIO IOI IOI III OITA IISA ANAS A SAA IAN. 
(2) 011070 000004 TST60: SCOPE 
(2) 011072 012737 000060 001206 MOV #60, $TESTN 7:SET TEST NUMBER _IN APT MAIL BOX 

1136 011100 012777 020000 170754 MOV #B1T13,@STKPT SET MAINT SWITCH #2 

1137 011106 012777 100030 170664 mov  #100030,aDBUF ©: LOAD BLINK ON 

1138 017114 013777 002000 170706 MOV DBUF , aDPC 

1139 011122 012737 000010 001124 MOV #8113, $GDDAT LOAD EXPECTED 

1140 011130 012777 100000 179642 MOV #100000,@DBUF ;BLJNK ENABLE =0 BLINK =0 

1141 011136 013777 000 170664 MOV DBUF , @DPC LOAD DISPLAY P.C. 

1142 011144 013737 002032 001122 MOV SREGO, SBDADR :SET UP REG ADRS 02 

1143 011152 017737 170654 001126 MOV @SREGO, SBDDAT READ _DISPLAY STATUS REGISTER 

1144 011160 042737 177767 001126 BIC #177767, $BDDAT :MASK TO BIT 3 

1145 011166 023737 001124 001126 CMP SGDDAT , SBDDAT COMPARE EXPCT TO RCVD 

1146 011174- 001401 BEQ ‘S161 :2BR IF EQUAL 

1147 011176 104027 ERROR 27 ' BLINK ENABLE FAILED TO INHIBIT 

Rep CHANGING OF THE BLINK BIT 

1150 CRO ORO IUI III IIIS ISIIIOIUIOIIIOIIOIOIIDIIOIIOIDISUIIU IOUT i iiotoi 
(3) :*TEST 61 TEST FOR FALSE L.P. STATUS FLAG (L.P. - NOT ENABLED) 
(3) J FUERA AREA RAHA E AREER EAE RERAERAEEREEE ERAS 


TST61: SCOPE 
MOV 


Ne 


0112 000004 
(2) 011202 012737 000061 001206 #61,$TESTN 7:SET TEST NUMBER IN APT MAIL BOX 
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7VSAB.P11. 29-MAY=79 10:10 T61 TEST FOR FALSE L.P. STATUS FLAG (L.P. - NOT ENABLED) SEQ 0040 
1151 011210 012777 020000 170644 MOV #81113, aSTKPT sSET MAINT SWITCH 42 
1152 011216 012737 100100 001124 MOV #100100, $GDDAT ;:LP ENABLE =1 LP=0 
1153 011224 013777 001124 170546 MOV SGDDAT , @DBUF ;LOAD BUFFER 
1154 011232 013777 002000 170570 MOV DBUF , aDPC ZLOAD DISPLAY P.C. 
1155 011240 013737 002032 001122 MOV SREGO,$BDADR : SET UP REG ADRS 02 
1156 011246 017737 170560 001126 MOV @SREGO, SBDDAT ;READ STATUS 
1157 011254 032737 000200 001126 BIT #200, SADDAT : 
1158 011262 001401 BEQ TST62 ::BR IF EQUAL 
Ee 011264 104034 ERROR 34 ;LIGHT PEN FLAG SET IN ERROR 
1161 J TEAR REE EEREREERERERREEREREREEERARE ARERR ERE 
(3) :*TEST 62 TEST FOR FALSE L.P. STATUS FLAG (L.P. - ENABLED) 
(3) 5 SAREE RARER REAR RAE EKER ERRREERARE ARERR EKKEEREREREERER EERE 
(2) 011266 000004 1S162: SCOPE 
(2) 011270 012737 000062 001206 MOV #62,$TESTN 3izSET TEST NUMBER IN APT MAIL BOX 
1162 011276 012777 020000 170556 MOV #B1T13,a@STKPT 7SET MAINT SWITCH #2 
1163 011 012737 100140 001124 MOV #100140,$GDDAT ;:LP ENABLE =1 LP=1 
1164 011312 013777 001124 170460 MOV $GDPAT , @DBUF SLOAD BUFFER 
1165 011320 013777 002 170502 MOV DBUF , @DPC :LOAD DISPLAY P.C. 
1166 011326 013737 002032 001122 MOV S2EGO,$BDADR §:SET UP REG ADRS 02 
1167 011334 017737 170472 001126 MOV a@5REGO, $BDDAT :READ STATUS 
1168 011342 032737 000200 001126 BIT #200, $BDDAT 
1169 011350 001401 BEQ TST63 ::BR IF EQUAL 
1170 011352 104034 ERROR 34 ‘LIGHT PEN FLAG SET IN ERROR 
1172 FD I ERE RRR EEE EEK EERE EE ERE ER KH 
(3) “*TEST 63 LOAD #4 INTO INT LEVEL REG:STER 
(3) SD RR REE REE RR EERE EERE EERE REE EEE REE © 
(2) 011354 000004 1ST63: SCOPE 
(2) 011356 012737 000063 001206 MOV #63, $TESTN ::SET TEST NUMBER IN APT MAIL BOX 
1173 011364 012777 020000 170470 MOV #B1T13, aSTKPT >SET MAINT SWITCH #2 
1174 011372 012777 103000 170400 MOV #103000, aDBUF ; INTENSITY LEVEL ENABLE =1 LEVEL =4 
1175 011400 012737 002000 001124 MOV #2000, $GDDAT sLOAD EXPECTED 
1176 011406 013777 002000 170414 MOV DBUF , aDPC LOAD DISPLAY P.C. 
1177, 011414 013737 002032 001122 MOV SREGO,$BDADR §:SET UP REG ADRS 02 
1178 011422 017737 170404 001126 MOV @SREGO, $BDDAT :READ DISPLAY STATUS REGISTER 
1179 011430 042737 174377 001126 BIC #174377, $BDDAT ;:MASK TO BITS 8-10 
1180 011436 023737 001124 001126 CMP $GDDAT , $BDDAT : COMPARE EXPCT TO RCVD 
1181 011444 001401 BEQ TST64 ::BR IF EQUAL 
1182 011446 104006 | ERROR 6 ‘INTENSITY LEVEL BIT 10 FAILED 
1184 CL RRR KEE REE EEK EKER EERE EERE EERE EEE EEE REE KKK EEE 
(3) S*TEST 64 LOAD #2 INTO INT LEVEL REGISTER 
(3) DRE REE EE EEE ERE REE EERE EERE EKER EERE ES 
(2) 011450 15164: SCOPE 
(2) 011452 012737 001206 MOV #64, $TESTN ::SET TEST NUMBER IN APT MAIL BOX 
1185 011460 012777 020000 170374 MOV #B1T13,aSTKPT =SET MAINT SWITCH #2 
1186 011466 012777 102400 170304 MOV #102400, aDBUF |; INTENSITY LEVEL ENABLE =1 LEVEL =2 
1187 011474 012737 001000 0011 MOV #1000, $GDDAT sLOAD EXPECTED 
1188 011502 013777 002 170320 MOV DBUF , DPC :LOAD DISPLAY P.C. 
1189 011510 013737 001122 MOV SREGO,$BDADR :SET UP REG ADRS 02 
1190 011516 017737 170310 001126 MOV @SREGO, $BDDAT :READ DISPLAY STATUS REGISTER 
1191 011524 042737 174377 001126 BIC #174377, $BDDAT ;:MASK TO BITS 8-10 
1192 011532 023737 001124 001126 CMP $GDDAT , $BDDAT : COMPARE EXPCT TO RCVD 
1193 011540 001401 BEQ TST65 ::BR IF EQUAL 
1194 011542 104006 ERROR 6 ‘INTENSITY LEVEL BIT 9 FAILED 
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LOAD #2 INTO INT LEVEL REGISTER 


WERORARASARASAAARASLASLALSASASASASRESAS ASRS ASRS SARE RARER SESE RAE RAS ES SS 


SeTEST 65 LOAD #1 INTO INT LEVEL REGISTER 


WEe SARGERAS ERARAASASLESASARAAA SESE R A PRR AAS RRA RR RARE SRR RASA REEDS SD 


TST65: 
#65, $TESTN 7zSET TEST NUMBER IN APT MAIL BOX 
sSET MAINT SWITCH #2 
Z INTENSITY LEVEL ENABLE =1 LEVEL =1 
;LOAD EXPECTED 


:LOAD DISPLAY P.C. 


001206 


NOW 
AOoOnso 


SREGO, $BDADR 
@SREGO, $BDDAT 
#174377, $BDDAT 
$GDDAT, $8DDAT 
TST66 


;SET UP REG ADRS 02 
READ DISPLAY STATUS REGISTER 
:MASK TO BITS 8-10 ‘ 
; COMPARE EXPCT TO RCVD 


lelelelelelelelelelelele) 
ed ad a cd ad at ce cal cal a el 


::BR IF EQUAL 
S INTENSITY LEVEL BIT 8 FAILED 


DDR ERR REE ERE KEE ERE ERE REE EK HH 
Z*TEST 66 CHECK INTENSITY LEVEL ENABLE GATE 
FD IIIT IRR REIKI EKER EEE RE RAEKEEEK KHK 
TST66: 
66,$TESTN 7zSET TEST NUMBER IN APT MAIL. BOX 

:SET MAINT SWITCH 42: 
;LOAD LEVEL 
; INTENSITY LEVEL ENABLE =0 LEVEL =0 
;LOAD DISPLAY P.C. 
:SINGLE STEP THE DISPLAY 

;LOAD EXPECTED 
;SET UP REG ADRS 02 

;READ DISPLAY STATUS REGISTER 
;MASK TO BITS 8-10 

sCOMPARE EXPCT TO RCVD 

QUAL 


<BR if © 
S INTENSITY LEVEL ENABLE FAILED TO INHIBIT 
; INTENSITY LEVEL CHANGE 


ESO eS ee PERSE AASASSESRESASSSSSSES ESSA S RS AAR ARERR RS RRS ESR SESS SD 


S*TEST 67 LOAD #0 INTO ITALIC REGISTER 


SCRE EE ERR EEEKEKEKEEREREKEKAKEKEREKKEKAKEKEERKKEKEKAEKEKEEKEKEKEEKEEEREKSE 


TST67: 
#67, $TESTN ::SET TEST NUMBER IN APT MAIL BOX 
#B1T13, aSTKPT >SET MAINT SWITCH #2 
#170060,aDBUF ; ITALICS ENABLE=1 ITALICS=0 
$GDDAT SLOAD EXPECTED 
DBUF , aDPC “LOAD DISPLAY P.C. 
SREGO,$BDADR : SET UP REG ADRS 02 
a@SREGO, $BDDAT :READ DISPLAY STATUS REGISTER 
#177757, $BDDAT 


:MASK TO BIT 4 
001126 735 ememapes ; COMPARE EXPCT TO RCVD 
104030 30 


33;BR IF EQUAL 
: ITALICS BIT FAILED TO RESET 


MNMNNNNNPNPNraA 
me ee ed ed ed ed ed ss I 
WOONAUSWH-O~ 
Sssss ana att 
oooo NNNN 
AAAML DOLLS 


1 
; 
1 
: 
1 
1 
1 
1 
1 
1 


$GDDAT , $BDDAT 
TST67 


001206 
170076 
170006 


170024 


Wet AASf 22 R222 SS RRSSESSARRRRRSSSERER RRS ERE R RRR RRS R RR RRR RRR ESSE SD SO | 


S*TEST 70 LOAD #1 INTO ITALIC REGISTER 
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000070 
020000 


170060 
000020 
002000 
002032 
167720 


177757 
001124 


001124 


167464 


PART 1 


001126 


001124 
001122 
001126 


001126 
001126 


001206 
2 


001126 


031076 
167472 


001126 
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LOAD #17 INTO I7A4LIC REGISTER 


=MmASRAAARSASLSAASLAAALALRARASESSASA SSA SASAASARS SARS RR RRR RRA RSS R SDS SO | 


+§170: SCOPE 

MOV #70, $TESTN ;7SET TEST NUMBER IN APT MAIL BOX 

MOV #B1T13,aSTKPT ET MAINT SWITCH #2 

MOV #170060, aDBUF ; ITALICS ENABLE=1_ ITALICS=1 

MOV #BIT4,$GDDAT LOAD EXPECTED 

MOV DBU C : LOAD DISPLAY P.C. 

MOV SREGO,$BDADR : SET UP REG ADRS 02 

MOV @SREGO, $BDDAT :READ DISPLAY STATUS REGISTER 

BIC #177757, $BDDAT :MASK TO BIT 4 

CMP $GDDAT , $BDDAT : COMPARE EXPCT TO RCVD 

BEQ TST71 ::BR IF EQUAL 

ERROR 30 ‘ITALICS BIT FAILED TO SET 
CLR RE REE REAR RARER ERE ERE EER EE 
T*TEST 71 CHECK ITALIC ENABLE GATE 
CLARA RARE REE EREERE KEE ERERREEERE ERE EH 
TST71: SCOPE 


MOV #71,$TESTN SET TEST NUMBER IN APT MAIL BOX 
SET MAINT SWITCH 42 

MOV #170060, aDBUF  ;LOAD ENABLE 

MOV #170000, aDBUF1 ITALICS ENABLE=0 ITALICS=0 


DBUF . aDPC 

MOV WBIT4,$GDDAT — ; LOAD EXPECTED 

INC aDPC ‘SINGLE STEP THE DISPLAY 

MOV SREGO,$BDADR  :SET UP REG ADRS 02 

MOV @SREGO, $BDDAT READ DISPLAY STATUS REGISTER 
BIC #177757,$BDDAT ;MASK TO BITS 4 

CMP SGDDAT , $BDDAT : COMPARE EXPCT TO RCVD 

BEQ TST72 ::BR IF EQUAL 

ERROR 30 SITALICS ENABLE FAILED TO INHIBIT 
‘CLEARING OF ITALICS BIT 


DTA E REE EER EKER EERE EERE ERE KEE 


:*TEST 72 TEST INTERNAL STOP FLAG CAN SET AND RESET 


RAS AAAASALLEL ASE SESSA SEAS ES RS EERE RARER ERS ER RSE R REAR RRS RASS RES SY 


TST72: 


1$: 


SCOPE 

MOV #72, $TESTN ::SET TEST NUMBER IN APT MAIL BOX 
MOV SREGO,$BDADR  :SET UP REG ADRS 02 

MOV #B1T13,aSTKPT :SET MAINT SWITCH #2 

MOV #172000,BUFFER ;''STOP’' BIT =1 


MOV DBUF , DPC ;LOAD DISPLAY P.C. 
MOV #B1T15,$GDDAT = LOAD EXPECTED 
a SeAEGSSROBAT READ DISPLAY STATUS REGISTER 


:;BR IF SET 
ERROR 37 :“INTERNAL=STOP’' BIT FAILED TO SET 
MOV #160000,BUFFER LOAD 'NOP"' 

MOV ABUF FER, aDPC :START DISPLAY 


CLR S$GDDAT ; CLEAR EXPECTED 

MOV @SREGO, SBDDAT READ DISPLAY STATUS REGISTER 
BPL TST73 ‘ity IF CLEARED 

ERROR 40 "INTERNAL~STOP"* BIT FAILED TO RESET 


DF RRR EEE EKER EERE RARER EERE REE ARERR ER EE EEE 


i*TEST 73 TEST THAT RESET WiLL CLEAR STOP, MODE, INTENSITY, ITALICS, BLINK & LINE 


SEQ 0042 


- 
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VSAB.P11 29-MAY=79 10:10 173 TEST THAT RESET WILL CLEAR STOP, MODE, INTENSITY, ITALICS, BLINK & LINE SEQ 0043 
(3) TEAR AARER AERA RERRAE RARER RARER EERERERERERE EERE RE ERE EERE 
(2) 012354 000004 1$173: SCOPE 
(1) 012356 012737 000010 001166 MOV #10,$TIMES :D0 10 ITERATIONS 
(2) 012364 012737 000073 001206 MOV #73, $TESIN ‘SET TEST NUMBER IN APT MAIL BOX 

1282 012372 012777 020000 167462 MOV #B1T13,aSTKPT “SET UP MAINT Sw 2 

1283 012600 012737 102637 031076 MOV #102637,BUFFER :SET UP CHAR 

1284 012406 012737 170060 031100 MOV #170060,BUFFER+2  ;SET UP ITALICS INSTR 

1285 012414 012777 031076 167406 MOV #BUF FER; aDPC START 

1286 012422 012737 002000 001124 MOV #2000, $GDDAT ;EXPECT INTENSITY ONLY 

1287 012430 005277 167374 INC PICK UP ITALICS INSTR 

1288 012434 012737 172000 031102 MOV #175000, BUFFER+4” :SET UP STOP INSTR 

1289 012442 905277 167362 INC apPC PICK UP STOP INSTR 

1290 012446 013737 002032 001122 MOV SREGO, $B8DADR SET UP REG ADRS 02 

1291 012454 000005 RESET =CLR REG 02 

1292 012456 017737 167350 001126 MOV @SREGO,$BDDAT  :READ REG 

1293 012464 023737 001124 001126 CMP $GDDAT.$BDDAT ALL BUT THE MSB OF INTENSITY SHOULD HAVE BEEN CLEARED 

1294 012472 001401 BEO TST74 ‘;NEXT TEST IF OK 

1295 012474 104032 ERROR 32 SRESET FAILED TO SET UP REG 02 

1297 PSS eeReRSRASASZASARASLESRSASLES ESE SESS SES RRR ERR ARR R RSA R RRR RSS RARE SS SS 
(3) SaTEST 74 TEST THAT INTERNAL STOP WILL CAUSE AN INTERRUPT 
(3) MOeBDBAAALBAAA£2£A £2 B22 22 SER RSSSASSSASESSASRE SARA SESSA ES ES ASSESSES SSE SES SE Se 
(2) 012476 000004 18174: SCOPE 
(1) 012500 012737 000100 001166 MOV #100, $TIMES ::D0 100 ITERATIONS 

1298 012506 012737 000340 177776 MOV #340.PSW ‘HIGHEST PRIORTY 

1299 012514 013737 002032 001122 MOV SREGO,$BDADR = SET UP REG ADRS 02 

1300 012522 012737 172000 001124 MOV #172000,$GDDAT EXPECT STOP, MODE AND INTENSITY LEVEL ONLY 

1301 012530 012700 001252 MOV $VECT1,RO [GET INTR ADRS 

1302 012534 042706 160000 BIC #160000,RO + CLEAR PSW BITS ae Boxe 

1303 012540 012710 012620 MOV #2$, (RO) [SET UP RETURN ADRS 

1304 012544 012760 000340 000002 MOV W306. 2(RO) [HIGHEST PRIORTY ON INTR 

1305 012552 012777 020040 167302 MOV #20060,a@STKPT :SET MAINT SW 2 

1306 012560 012737 173400 031076 MOV #173600 BUFFER TENABLE STOP INTR + STOP 

1307 012566 012777 031076 167234 1$: MOV ABUFFER.@DPC =: START 

1308 012574 005037 177776 CLR PSW ZALLOW INTR 

1309 012 021616 CMP (SP) , (SP) ; FUMBLE 

1310 012602 005700 TST RO ‘EXPECT INTR? 

1311 012604 001430 BEQ 5$ ‘BR IF NOT 

1312 012606 017737 167220 001126 MOV @SREGO.$BDDAT  :READ STATUS 

1313 012614 104000 ERROR S INTERNAL STOP FAILED TO INTR 

1314 012616 000423 BR 5$ [LOOK FOR LOOP ON TEST Sw 

1315 012620 022626 2$: CMP (SP)+, (SP)+ sFIX STACK SINCE NO RTI 

1316 012622 017737 167204 001126 MOV @SREGO,$BDDAT  :READ REG O2 

1317 012630 005700 TST RO ‘EXPECT INTR? 

1318 012632 001002 BNE 3$ ‘BR IF SO 

1319 012634 104033 ERROR 33 ‘INTERNAL STOP INTR'ED WHEN NOT ENABLED 

1320 012636 000413 BR 5$ :GO LOOK FOR LOOP ON TEST Sw 

1321 012640 023737 001124 001126 3$: CMP $GDDAT,$SDDAT STATUS CORRECT? 

1322 012646 001402 BEO 4$ 'BR IF SO 

1323 012650 104033 ERROR 33 ‘STOP FLAG NOT SET ON INTR 

1324 012652 000405 BR 5$ ‘GO LOOK FOR LOOP ON TEST Sw 

1325 012654 012737 173000 031076 4$: MOV #173000,BUFFER :SET UP NOW WITH INTR NOT ENABLED 

1326 012662 005000 CLR RO ‘INDICATE NO INTR 

1327 012664 000740 BR 1$ “REPEAT TEST 

1328 012666 004737 024454 5$: JSR PC .RSTVEC *GO RESTORE VECTORS 
c 
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CZ2VSAB.P11 29-MAY-79 10:10 175 LOAD #0 INTO MENU REGISTER 


—MBRBRABAABASLALASZALASLALSAASALASLASLSLASAS ESLER ERAS ARES A SERRE RRR RRR S RRS ES 
SSTEST 75 LOAD #0 INTO MENU REGISTER 
(MeSBRBRBAAASRQAASAALZALALAA SSA ASALASASARSAE SAS ASRS ARS RS SRS S ARRAS SRSA SS SS 
+8175: 
001206 MOV #75, $TESTN ::SET TEST NUMBER IN APT MAIL BOX 
167152 #81113, aSTKPT >SET MAINT SWITCH #2 
167062 #170002, aDBUF | ;MENU ENABLE=1 MENU=0 
$GDDAT [LOAD EXPECTED 
167100 DBUF , @DPC ‘LOAD DISPLAY P.C. 
001122 SREGi,$BDADR SET UP REG ADRS12 
001126 @SREG , SBDDAT :READ DISP STATUS REGISTER 
001126 #177677, $BDDAT ;MASK TO ‘BIT 2 
001124 001126 $GDDAT, $BDDAT COMPARE EXPCT TO RCVD 
TST76 ;7BR IF i QUAL 
3) ‘MENU BIT FAILED TO RESET 


SERRA ERE AERA REE RERE ERE AEERERERRERAERKEKEERERAERRRERERRER ERED 
S*TEST 76 LOAD #1 INTO MENU REGISTER 
Pee BASRABASALRASAAZRASZAAALARSZAASASASS SESS SSE S ESE SARA SESE RES ESSA S SRSA S SS 
TST76: 
000076 #76,$TESIN ::SET TEST NUMBER IN APT MAIL BOX 
#B1T13, aSTKPT >SET MAINT SWITCH #2 
#170003,aDBUF § ;MENU ENABLE=1 MENU=1 
WBIT6,$GDDAT  :LOAD EXPECTED 
DBUF , @DPC “LOAD DISPLAY P.C. 
SREGI,$BDADR :SET UP REG ADRS 12 
aSREG1, $BDDAT :READ DISPLAY STATUS REGISTER 
#177677,$BDDAT ;MASK TO BIT 2 
001124 001126 $GDDAT , $BDDAT ; COMPARE EXPCT TO RCVD 
TST77 ::BR IF EQU 
3) “MENU BIT FAILED TO SET 


REREFKGSAAKEE 


FW —ODO@ONAURY~ Ye Ye YW 


; 
: 
1 
1 
1 
1 
1 
; 


LA.AIAWAGW 
VOW 


ant 
Ww 
Ww 
Ww 


Wet eee eRe RRR RERRRSE SERRA RARRRARESR SARS RRR SRR SSR SSR R RAR ASRS S SD SD | 


EST 77 CHECK MENU ENABLE GATE 


ieee SAPSS ARES SEAARSASASSASSALASSSASASASS SRR S SRS SARA SSE SS | 


#77, STESIN ::SET TEST NUMBER IN APT MAIL BOX 
SREG1,$BDADR SET UP REG ADRS 12 
#B1T13,aSTKPT :SET MAINT SWITCH #2 
#170002,BUFFER ;MENU ENABLE = 1 MENU = 0 

166710 WBUFFER.@DPC START DISPLAY 

031100 #170001. *BUFFER+2. pA ;MENU ENABLE=0 MENU=17 


apP 
SEDDAT SLOAD EXPECTED 
001126 MO aSREG1, $8DDAT :READ DISPLAY STATUS REGISTER 
001126 #177677, $BDDAT :MASK TO BIT 2 
001126 $GDDAT, $BDDAT ; COMPARE EXPCT TO RCVD 
TST100 ::BR IF EQUA 
31 MENU ENABLE FAILED TO INHIBIT 
“RESETTING OF MENU BIT 


SETA AAA RARER RARER AEA AERA EREAEARAARERAKERAAHEEREEEREE RARE ES 


:*TEST 100 TEST THAT LOAD STATUS C INSTR CAN SET THE VECTOR SCALE 


CC AAAAAAARAERARAAAAAEAAAAAAARAARAAAAARERAAAAAAAARARAAAEEAAEREERA EERE 


er | =" 
WAWWAAARAWWSY 
FARAH GGS 
oOooOnNYVevYe OD 


RRR 
wr 


SEES 


WWNN 


& 


~~ OAS 
VE SSO 
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000100 
020000 


166454 
177760 
001124 


001206 


001126 


001206 


166466 


001126 


001126 


001124 
031076 


MACY11 30G6(1063) 
T100 


TS 


— 
ad 


2$: 


> RARER AAA ERA AERAREERAEAR AEA AAAERENRREAARAEARRARAAAEAERRAAR HH 


TEST THAT THE VECTOR SCALE DOES NOT CHANGE WHEN CHANGE ENA=0 


WeOOG RAS RRRRERRARSERESARARR RRR RARE RRRRRRE RRR SRSA SRR SSR RRR RRR SSS SO 


. 
>? 
. 


7s 


STARA AA AREER AERA EAA AAAAARAAAAERAAAAAEAREARAERAAAEEAERREEEE EER 


TEST THAT LOAD STATUS C INSTR CAN SET THE CHARACTER SCALE 


'WEAAAAAAAAARARASAALSSERASASASSERA RES SEER RRR RRR RRR RASA RRS SRR SESE SY 


** 
° 


7s 


1$: 


2s: 


T100: SCOPE 


TEST 101 


T101: SCOPE 


TEST 102 
T7102: SCOPE 


G 
17=S5P=79 08: 43 PAGE 9-22 
TEST THAT load STATUS C 


#100, $TESTN 
#BI1T13, aSTKPT 


S$GDDAT ,BUFFER 
BUF FER ,aDPC 


$GDDAT , SBDDAT 
es 


25 
$GDDAT 
1$ 


#101, $TESIN 
#B1T13. aSTKPT 
#154037 ,BUFFER 
#17,$GDDAT 
#BUF FER, aDPC 


Ab yee eBUFFER+2- 


apP 
SREG1,$BDADR 
aSREG, $BDDAT 
#177760, $BDDAT 
$GDDAT , $BDDAT 
IsT102 


#102, STESTN 


aSREG) , SBDDAT 

#176377, $BDDAT 

$GDDAT , $8DDAT 

2$ 

TST103 

26 

#400 SGDDAT 
7103 

#0, BUFFER 


‘BR IF OK 
;VECTOR SCALE INSTR ER 


;SAVE VECTOR SCALE eo 


3:SET TEST NUMBER IN APT MAIL BOX 


SET UP SC 

;SET UP INSRT AT BUFFER 
START WITH ALL ONES 
START 

2 SET UP REG ADRS 12 


INSTR CAN SET THE VECTOR SCALE 


7;SET TEST NUMBER IN APT MAIL BOX 
;SET MAINT SWITCH #2 

:SET UP SCOPE LOOP ADRS 

;START WITH ALL ONES 

;SET UP INSTR AT BUFFER 

SET UP VECTOR SCALE AT INSTR LOC 


;SET UP REG ADRS 12 

;READ VECTOR SCALE 

;ONLY_ INTERESTED - VECTOR SCALE 
TARE THEY CORRECT 


;ADVANCE PATTERN 
;BR IF NOT DONE 





:SET TEST NUMBER IN APT MAIL BOX 
;SET MAINT SWITCH #2 
,S£T UP INSTR AT BUFFER-VECTOR SCALE ENA SET 
+3 VECTOR SCALE EXPECTED 


:SET UP INSTR AT BUFFER-NO VECTOR SCALE ENA 
RE SUME 


:SET UP REG ADRS 12 
READ VECTOR SCALE 


: DOES IT STILL EQ 1 
;;ADVANCE TO NEXT TEST IF OK 
:VECTOR SCALE CHANGE ENABLE INSTR ER 


SET MAINT SWITCH #2 
OPE LOOP ADRS 


READ CHAR SCALE 
SAVE CHAR SCALE ONL Y 
:1S IT CORRECT 


:BR IF OK 

ADVANCE TO NEXT TEST IF Ok 
SCHARACTER SCALE INSTR ER 

; ADVANCE PATTERN 

;;ADVANCE TO NEXT TEST IF DONE 
[ADVANCE PATTERN AT INSTR LOC 
;DO NEXT CHAR SCALE 
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2 
176377 
001124 


001124 





TEST THAT LOAD STATUS C INSTR CAN SET THE CHARACTER SCALE SEQ 0046 







































Wena SR ERR RARRRRRRARRSARARRARSRRRSARAR RRR RRR RE RRR ARS RRR RRS ARR DSS SD | 


S*TEST 103 TEST THAT THE CHAR SCALE DOES NOT CHANGE WHEN CHANGE ENA=0 
TARA REE RRR ERE RAE EERE ERE ER EERE AEERA RR EAEEKRERRE RENEE 
151103: SCOPE 
001206 MOV #103, $TESTIN ::SET TEST NUMBER IN APT MAIL BOX 
166310 MOV #81T13,aSTKPT =SET MAINT SWITCH #2 
031076 MOV #154360,BUFFER ;SET UP INSTR AT BUFFER=CHAR SCALE ENA SET 
001124 MOV #1400,$GDDAT |: SET UP CHAR SCALE EXPECTED 
166234 MOV #BUF FER, aDPC = START 
031100 MOV #154000 ,,BUFFER+2 :SET UP INSTR AT BUFFER=NO CHAR SCALE ENA 
INC aDPC RESUME 
001122 MOV SREG1,$BDADR :SET UP REG ADRS 12 
001126 MOV @SREGI,$BDDAT  :READ CHAR SCALE 
001126 BIC #176377,$BDDAT =SAVE CHAR SCALE ONLY 
001126 CMP $GDDAT,$BDDAT IS IT CORRECT? 
BEQ TST104 +:GO TO NEXT TEST IF NO CHANGE 
ERROR 26 :CHARACTER SCALE CHANGE ENABLE INSTR ER 


SLEEK REE EKE KER EREEREEREEEERERE AERA E RRR RE REE R 
S*TEST 104 TEST THAT LOAD STATUS C INSTR CAN SET THE CHARACTER ROTATE 
FERRARA RARER EEEERERRERE ERE REE EERE 
TST104: SCOPE 
001206 MOV #104, $TESIN ::SET TEST NUMBER IN APT MAIL BOX 
166202 MOV #B1T13,aSTKPT 7SET MAINT SWITCH #2 
001110 MOV #1$,$LPERR :SET UP SCOPE LOOP ADRS 
031076 MOV 7158400. BUFFER :SET UP INSTR AT BUFFER 
001124 MOV #2000,$GDDAT = EXPECT CHAR ROTATE BIT 
166120 1$: MOV WBUFFER,@DPC START 
001122 MOV SREG1,$BDADR = SET UP REG ADRS 12 
001126 MOV @SREG1,$BDDAT  :READ CHAR ROTATE BIT 
001126 BIC #175777, $BDDAT :SAVE CHAR ROTATE BIT ONLY 
001126 CMP $GDDAT,$BDDAT IS IT CORRECT 
BEQ 2$ :BR IF OK 
ERROR 26 “CHARACTER ROTATE INSTR ER 
0011724 28: SUB #2000 $GDDAT ; ADVANCE PATTERN 
BMI T7105 ADVANCE TO NEXT TEST IF OK 
031076 SUB #200. BUFFER ‘ADVANCE PATTERN AT INSTR LOC 
BR 1$ [NOW WRITE A ZERO INTO CHAR ROTATE 


Wee AAAS RERE RES ESARELESESASERS ERASERS SRR RRS R SRR ERR RRR S RSS SS 


> *TEST 105 TEST THAT THE CHARACTER ROTATE DOES NOT CHANGE WHEN CHANGE ENA=0 
CE EAR REA ARRERAERERREEU EERE E EER EEERKEEERREEEEREEEREREEREREEERE ERE 
151105: SCOPE 
001206 MOV #105, $TESIN ::SET TEST NUMBER IN APT MALL BOX 
166060 MOV #81713, aSTKPT >SET MAINT SWITCH #2 
031076 MOV #155400,BUFFER ;SET UP INSTR AT BUFFER CHAR ROTATE ENA SET 
001124 MOV #2000, SGDDAT “EXPECT CHAR ROTATE BIT 
166004 MOV #BUF FER, aDPC * START 
031100 MOV 75c000" * BUF FER+2 :SET UP INSTR AT BUFFER=<wITHOUT CHAR ROTATE ENA 
INC aDPC RE SUME 
001122 MOV SREG1,$BDADR  :SET UP REG ADRS 12 
001126 MOV @SREG1,$BDDAT  :READ CHAR ROTATE BIT 
001126 BIC #175777, $BDDAT :SAVE CHAR JROTATE BIT 
001126 CMP SCDDAT, $BDDAT iI IT 





SET? 
BEQ TST106 : ADVANCE TO NEXT IF Ok 
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014070 


014072 


0 
014314 


014316 


014364 
014370 
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104026 


165654 
001124 


000107 
014240 


031076 
00200: 


000110 
002034 
020000 
174100 
002000 
174077 


165440 
001124 


PART 1 


001166 


001124 
001122 


001126 
001126 


031076 
165562 


001126 


0 001124 


031100 


ary 3061063) 


I 
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=24 
7105 TEST THAT THE CHARACTER ROTATE DOES NOT CHANGE WHEN CHANGE ENA=0 


ERROR 26 


5 TAREE ARERR ERE REE EREREEEH 


**TEST 106 


SS RRA AAEAEAEAAARARRERAEREEEERRR RE 


7517106: SCOPE 


; CHARACTER ROTATE CHANGE ENABLE INSTR ER 


(ARR RSASSASASSRRSAARELA SSSR RS SSS SO | 


TEST THAT RESET WILL CLEAR ROTATE, CHAR SCALE, MENU & VECTOR SCALE 


ARR RAS ERASER RESARSAR SERA SEEDS SD | 


MOV #40, $TIMES ::D0 40, ITERATIONS 
MOV #106, $TESTN :=SET TEST NUMBER IN APT MAIL BOX 
MOV WBITI3,aSTKPT SET MAINT SW 2 
MOV #155733,BUFFER :SET UP "LOAD STATUS C' INSTR 
MOV #170003.BUFFER+2  ;SET UP MENU INSTR 
MOV WBUFFER.@DPC =; START 
MOV #404, $GDDAT ‘EXPECT MSB OF VECTOR SCALE ONLY 
iNC aDPC ‘PICK UP MENU IN 
MOV SREG1,$BDADR  :SET UP REG ADRS 5 
RESET =CLR REG 12 
V @SREG1,$BDDAT  ;:READ STATUS REG 1 
CMP SGDDAT;SBDDAT = 31S IT CORRECT? 
BEQ TST107 ":NEXT TEST IF O 
ERROR 32 “RESET FAILED 10. SET UP REG 12 
:GRAPHPLOT INCREMENT REGISTER TESTS 
WEP eeSAeSSRSaSAA£ZAAE SESS SSSRESASASLASS SSS ASSESSES SSSR SERS SARS RSE RRS EE SS 
S TEST 107 LOAD 0-77 INTO GRAPHPLOT INCREMENT REGISTER 
WReeBRSSAAASZASSASASAL ALES AS ESSE SESE SES ERE RRS RRS ERR RR RRS ARREARS SESS SD 
TS$T107: SCOPE 
MOV #107, $TESTN 3 SET TEST NUMBER IN APT MAIL BOX 
MOV #1$,$LPERR :SET UP SCOPE LOOP ADRS 
MOV #B1T13,aSTKPT  :SET MAINT SW 2 
MOV #174100,BUFFER LOAD GRAPHPLOT INSTR 
CLR $GDDAT “LD EXPECTED 
1$ MOV WBUFFER,@DPC «START 
MOV XPOS, $BDADR :SET UP REG ADRS 04 
MOV aXPOS,$BDDAT § :READ GRAPHPLOT 
BIC #1777, $BDDAT —: SAVE_ONLY GRAPHPLOT 
CMP $GDDAT,$BDDAT = CORRECT? 
BEG 2$ ‘BR IF SO 
ERROR 7 ;GRAPHPLOT FAILED 42 LOAD CORRECTLY 
2s: INC BUFFER “ADVANCE GRAPHPLOT AT INSTR 
ADD #2000,$GDDAT | :ADVANCE EXPECTED 
BCC 1$ ‘BR IF NOT COMAS TESTED 
WER SBSSSASAALSASAALALALSLERERSE SS ES ASSES ERE RSE R RSE S RRS RRS RRR RRS SASS SE SS 
SeTEST 110 CHECK THE GRAPHPLOT INCREMENT ENABLE REGISTER 
MeASBASAASZASLASZAZASLASZASSLESASAESARSASASAASE SESE S SSAA SSSR AREAS ESSE SASS SSS SS 
751110: SCOPE 
MOV #110,$TESTN :SET TEST NUMBER IN APT MAIL BOX 
MOV XPOS, $BDADR “SET UP REG ADRS 04 
MOV #B1T13,aSTKPT :SET MAINT SWITCH #2 
MOV #174100 @DBUF :LOAD GRAPHPLOT COUNTER WITH 0 
MOV *START DISPLAY 
MOV wir467? BUFFER +2” sLOAD GRAPHPLOT NO ENABLE 


CLR $GDDAT 


SLOAD EXPECTED 





SEQ 0047 
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014374 017737 165434 
37 001777 

001124 


001126 
001126 
001126 


165340 
001124 


165332 001126 


ke ed od 8) od ed 


PANDA AAA IAI UI UTIUTUTUIA ABA AR UTUTUIT UI UTI UTI TIA A OA RAR UIT 
WRIRINIRS Se SN RM NO 


001206 
165334 


MPN TPWw 


BYRKARUNLSVRVRRROVYEYAR VS Garanewle oe lVYn=SsssB 
oO 
_ 
™ 
wn 
, > 
Ae) 


001126 
001126 


001124 
031076 


031100 
001122 


165124 


013737 002052 
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T7110 CHECK THE GRAPHPLOT INCREMENT ENABLE REGISTER 
MOV @XPOS , $BDDAT READ INCREMENT REGISTER 
BIC #1777 , SBDDAT :MASK TO BITS 15-10 
CMP $GDDAT , SBDDAT ; COMPARE EXPCT TO RCVD 
BEQ TST111 ;3;BR_IF EQUAL 
ERROR 7 [GRAPHPLOT REGISTER CHANGED WITHOUT 


; THE ENABLE BEING SET 


SL AAA RAE EERE ERE EREEEREKRERERERERERERR HERRERA EH 


:*TEST 111 TEST THAT RESET WILL CLEAR GRAPHPLOT INCREMENT 


WEARER AASSESARRSAEALASAARSASALEALE SALAS ASA ARERR SERRA RRA R REESE BG 


17111: SCOPE 
MOV #60, $TIMES :D0 40 ITERATIONS 
MOV #1171,$TESTN ‘SET TEST NUMBER IN APT MAIL BOX 
MOV XPOS , $BDADR SET UP REG ADRS 04 
MOV WBITI3,aSTKPT :SET MAINT SW 2 
MOV #174177,BUFFER :SET UP GRAPHPLOT INCREMENT INSTR 
MOV #BUFFER.@DPC =: START 
CLR $GDDAT ;EXPECT ZERO 
RESET R REG 04 


MOV @XPOS , SBDDAT REG 04 
BEQ TST112 S;NEXT TEST IF ZERO 
ERROR 32 RESET FAILED TO CLR GRAPHPLOT INC 


FIRE EERE REE ER ERE KEK ER EK EKER ERE ERE ERE 


READ 


S*TEST 112 TEST THAT LOAD STATUS B INSTR CAN SET THE COLOR LEVEL 
SRK KKK EKER KE KERRIER RK MKE KEE EREEREKEE REE EERE EEK 
157112: SCOPE 
MOV #112, $TESTN >:SET TEST NUMBER IN APT MAIL BOX 
MOV #B1T13,a@STKPT 7SET MAINT SWITCH #2 
MOV #1$,$LPERR :SET UP SCOPE LOOP ADRS 
MOV #175600, BUFFER :SET UP INSTR AT BUFFER 
MOV #14, $GDDAT [EXPECT ALL ONES AT START 
1$ MOV cosrEn. @DPC = START 


MOV CONS, _SBDADR SET UP 1 ‘tee 22 
MOV @CONS , SBDDAT ;READ COLOR LEVEL 
BIC #177763, $SBDDAT ;ONLY INTERESTED IN THE COLOR LEVEL 
CMP S$GDDAT,$BDDAT 31S IT CORRECT? 
BEQ 2s BR IF OK 
ERROR 35 :COLOR LEVEL INSTR ER 
2$: SUB #4 ,$GDDAT ; ADVANCE PATTERN 
BM! TST113 ADVANCE TO NEXT TEST IF ALL PATTERNS TESTED 
SUB #200 ,BUF FER :SET UP NEXT PATTERN AT INSTR LOC 


BR 1$ [TRY NEXT PATTERN 


DLE ERR KERR EEE REE RARER EEE EERE EERE ERK EK 


i*TEST 113 TEST THAT THE COLOR LEVEL DOES NOT CHANGE WHEN CHANGE ENA=0 


SERRE ERE ERE E 


151113: SCOPE 


MOV #113, $TESIN 3zSET TEST NUMBER _IN APT MAIL BOX 

MOV #B1T13,aSTKPT SET MAINT SWITCH #2 

MOV #175600,BUFFER ;SET UP INSTR AT BUFFER-COLOR LEVEL ENA SET 

MOV #14, SDDAT 7SET UP COLOR LEVEL EXPECTED 

MOV ABUF FER , aDPC 7 START 

MOV #174000, “BUFFER+2° :SET UP INSTR AT BUFFER=NO COLOR LEVEL ENA 
INC aDPC 7RESUME 

MOV CONS , $BDADR [SET UP REG ADRS 22 
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CZVSAB.P11 29-MAY=79 10:10 7113 TEST THAT THE COLOR LEVEL DOES NOT CiWANGE WHEN CHANGE ENA=0 SEQ 0049 
1548 014712 017737 165134 001126 MOV @aCONS , $BDDAT sREAD COLOR LE /EL 
1549 014720 042737 177763 001126 BIC #177763,$BDDAT ;ONLY INTERESTED IN THE COLOR LEVEL 
1550 014726 023737 001124 001126 CMP SGDDAT,$BDDAT ;1S IT CORRECT? 
1551 014734 001401 BEQ TST114 ;z;ADVANCE TO NEXT TEST IF O 
1336 014736 104035 ERROR 35 ;COLOR LEVEL CHANGE ENABLE INSTR ER 
1854 DA SISISIIIUIISIISISIIISISIISISISIOISIOIDIOIIIUIIUIOIOIISIUISIOIUIOIIIOIDIISIDIII ICID 
(3) s*TEST 114 TEST THAT NOP INSTR CAN SET & RESET INTENSITY ENABLED=CONSOLE 0 
(3) TOSI II IISISINISIIIIIUIOIOIIIOISISISIIIIOIDIIIUIDIIIOIIIIOIOIIOIOINIOIOINIINIOE 
(2) 014740 000004 TST114: SCOPE 
(2) 014742 012737 000114 001206 MOV #114,$TESTN 77SET TEST NUMBER IN APT MAIL BOX 
1555 014750 012777 020000 165104 MOV #B1T13,aSTKPT ;SET MAINT SWITCH #2 
1556 014756 012737 015000 001110 MOV #1$,$LPERR ;SET UP SCOPE LOOP ADRS 
1557 014764 012737 100000 001124 MOV #100000.$GDDAT EXPECT IT TO BE SET INITIALLY 
1558 014772 012737 164300 031076 MOV #164300,BUFFER ;SET UP INSTR LOC 
1559 015000 012777 031076 165022 1$: MOV #BUFFER;aDPC 3 START 
1560 013737 002052 001122 MOV CONS , SBDADR SET UP REG ADRS 22 
1561 015014 017737 165032 001126 MOV @CONS , $BDDAT READ CONSOLE 0 INT ENA 
1562 015022 042737 077777 001126 BIC #77777 ,$BDDAT SAVE ONLY INTENSITY ENABLE BIT 
1563 015030 023737 001124 001126 CMP $SGDDAT,$BDDAT ;1S IT CORRECT? 
1564 015036 001401 BEQ 2$ [BR IF SO 
1565 015040 104036 ERROR 36 ;CONSOLE 0 INTENSITY ENABLE INSTR ER 
1566 015042 162737 100000 001124 2$: SUB #100000, $GDDAT ;GO TO RESET STATE 
1567 015050 100404 BMI TST115 7;G0 TO NEXT TEST IF BOTH STATES TESTED 
1568 915052 042737 000100 031076 BIC #100,BUFFER ;CLR_ INT ENABLED BIT AT INSTR LOC 
Ps 4 015060 000747 BR 1$ ;GO TRY RESET STATE 
1571 DDI IOIIUIOIIOIDIIDIIIOIISIOIOIOIUISISIOIOIOIOIIOIOIOIIOISIOIISIOI IOI III III III II TE 
(3) >eTEST 115 TEST THAT CONSOLE 0 INTENSITY ENABLED DOES NOT RESET WHEN ENA=0 
(3) CUI III IOIOISIOIIIOIOIOIIOIIOIOI IIIS II TOT I TOTO OTTO IIIT TE 
(2) 015062 000004 TST115: SCOPE 
(2) 015064 012737 000115 001206 MOV #115, $TESTN 7iSET TEST NUMBER IN APT MAIL BOX 
1572 015072 012777 020600 164762 MOV #81713, aSTKPT ;SET MAINT SWITCH #2 
1573 015100 012737 100000 001124 MOV #100000, $GDDAT EXPECT INTENSITY TO BE SET 
1574 015106 012737 164300 031076 MOV Baers BUFFER ;SET UP INSTR 
1575 015114 012777 031076 164706 MOV BUFFER, aDPC START 
1576 015122 012737 164000 031100 MOV #164000, -BUFFER+2" 7SET UP INSTR WITH ENA=0 
1577 015130 005277 164674 INC aDPC ADVANCE TO NEXT INSTR 
1578 015134 013737 002052 001122 MOV CONS , $BDADR SET UP REG ADRS 2 
1579 015142 164704 TST acoNs 1S INTENSITY STILL SET? 
1580 015146 100403 BMI TST116 ADVANCE TO re TEST IF STILL SET 
1581 015150 005037 001126 CLR $BDDAT S INDICATE IT WAS CLEARED 
1ont 015154 104036 ERROR 36 :CONSOLE 0 INTENSITY CHANGE ENABLE INSTR ER 
1584 OOOO III IDIIIOIOISISUICIIIOISISIOISIIIOIIOIOIOI IOI IOI ITO OO STII IIIT I I EI IE 
(3) *TEST 116 TEST THAT NOP INSTR CAN SET & RESET INTENSITY ENABLED-CONSOLE 1 
(3) SO OIIIIIOIO TOI TOT TTT OI TOR Toto ER RRR RE RR RR Rt kt 


(2) 015156 000004 TST116: SCOPE 
(2) 015160 012737 000116 001206 MOV #116, gti 53ST TEST NUMBER _IN APT MAIL BOX 
1585 015166 012777 020000 164666 MOV #B1T13, aSTKP SET MAINT SWITCH #2 
1586 015174 013737 015216 001110 MOV 1$,$LPERR :SET UP SCOPE LOOP ADRS 
1587 015202 012737 001000 001124 MOV #1000, $GDDAT SEXPECT IT 10 BE SET INITIALLY 
1588 015210 012737 164700 031076 MOV #164700,BUFFER SET UP INSTR LOCATION 
1589 015216 012777 031076 164604 1$: MOV BUF FER , aDPC ; START 
1590 015224 013737 002052 001122 MOV CONS , $BDADR SET UP REG ADRS 22 
1591 015232 017737 164614 001126 MOV @CONS , SBDDAT ;READ CONSOLE 1 INT ENA REG 
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015240 042737 176777 #176777 ,$ES0AT ;SAVE ONLY INT ENA 
023737 001124 eee) SBDDAT IS IT CORRECT? 


001401 BR IF OK 
104036 36 ;CONSOLE 1 ah ENABLE INSTR ER 
162737 001000 001124 : #1000, S$GDDAT :60 TO RESET STATE 

100404 BMI TST117 3GO TO NEXT TEST IF BOTH STATES TESTED 
042737 000100 031076 #100,BUFFER :ELR INT ENABLED BIT AT INSTR LOC 
000747 1$ :GO TRY RESET STATE 


FD I IRE RR EERE RRA REE REE KEE EEE EKER EEE REE 
S*TEST 117 TST THAT CONSOLE 1 INTENSITY ENABLED DOES NOT RESET WHEN ENA=0 
FL REE EERE EEK EERE EEK KEE EEE KEKE ERE EEK KERR 
1ST117: SCOPE 
001206 MOV #117, $TESTN ::SET TEST NUMBER IN APT MAIL BOX 
#B1T13, aSTKPT >SET MAINT SWITCH #2 
#1000,$GDDAT — EXPECT INTENSITY TO BE SET 
#164700, BUFFER iSET UP INSTR 
#BUFFER. 
031100 #164400, BUFFER+2° :SET UP INSTR WITH ENA=0 
aDPC :ADVANCE. TO NEXT INSTR 
001122 CONS , $83DADR ZSET UP REG ADRS 22 
164464 #1000, aCONS ‘1S INTENSITY STILL SET? 
TST120 t:ADVANCE TO NEXT TEST IF STILL SET 
$BDDAT SINDICATE IT WAS CLEARED 
015374 36 SCONSOLE 1 INTENSITY CHANGE ENABLE INSTR ER 


fT REE REE REE EEE ERE 


S*TEST 120 TEST THAT NOP INSTR CAN SET & RESET L.P. INTR ENABLED-CONSOLE 0 


SUIS IISISISIIISIDISISIOISIOI IOI IOI IOISIOIUICIOIOI IOI III TOI IOI TOI TOT TT TT TT TTI TT TT TIE 
015376 000004 TST120: SCOPE 
001206 MOV #120, $TESTN ;SET TEST NUMBER IN APT MAIL BOX 
T 3SET MAINT SWITCH #2 
;SET UP SCOPE LOOP ADRS 
sEXPECT IT Lk BE SET INITIALLY 
[SET UP INSTR LOC 
7; START 
ZSET UP REG ADRS 22 
[READ CONSOLE 0 LP INTR ENABLED REG 
1126 :SAVE_ ONLY LP_INTR ENABLED BIT 
001126 a. , $BDDAT 21S Hy CORRECT? 


F OK 
42 CONSOLE 0 L.P. INTR ENABLE INSTR ER 
001124 ¢ #4000, $GDDAT :60 TO RESET STATE 
TST121 ADVANCE TO NEXT TEST IF BOTH STATES TESTED 
031076 #20,BUFFER :CLR_THE ENABLED BIT AT INSTR LOC 
015516 = O¢ 1$ :GO TRY RESET STATE 


DDSI GIOISIOISISIIISISIUIIISIDIIOISIOIDIIOIUIOIDIUIOIOIUIOIIDISIOIOIDIDIOI III IIIT ISI TTI TE 
7*TEST 121 TEST THAT CONSOLE 0 L.P. INTR ENABLED DOES NOT RESET WHEN ENA=0 
SUISIOIISISISISOIOIIOISISISIOIDIUIDIOIOISIOIIOISOIIOIIOIDIOIIOIIIISIIDIOIDIOISIIOI IOI IOIIOIIDSIDISIO It 
015520 000004 TST121: SCOPE 
000121 001206 MOV #121,$TESIN 3:SET TEST NUMBER IN APT MAIL BOX 
020000 . A, SET MAINT SWITCH #2 
000 sEXPECT L.P. Boag t ENABLED TO BE SET 
164060 #162060. BUFFER 43H OP INSTR LOC 
015552 012777 031076 164250 #BUF FER ,a@DPC START 
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015560 012737 031100 #164000, BUF FER+2_ :SET UP INSTR WITH ENA=0 

015566 005277 aDPC ADVANCE TO NEXT INS 

015572 001122 CONS, SBDADR “SET UP REG ADRS ays! 

015600 004000 164244 #4000, aCONS ‘IS L.P. INTR ENABLED STILL SET? 

015606 TST122 ‘ADVANCE TO NEXT TEST IF STILL SET 

015610 CL SBDDAT S]NDICATE IT WAS CLEARED 

015614 42 “CONSOLE 0 L.P. CHANGE INTR ENABLE INSTR ER 


FFARR KEE EERE EERE EKEEEEEREKEEEKEKEEEEEEKEK KH 


*TEST 122 TEST THAT NOP INSTR CAN SET & RESET L.P. INTR ENABLED-CONSOLE 1 
SIRI ISI UISISIOIIOIOIOIIOIIOISISISISIOIOIOIOIOI IOI OI TOT TOT OTT OT TT TT TS TTT TET SIE TT ST STE 
015616 000004 TST122: SCOPE 
MOV #122,$TESTN 7zSET TEST NUMBER IN APT MAIL BOX 
#B1T13,aSTKPT ;SET MAINT a #2 
#1$,$LPERR ;SET UP SCOPE LOOP ADRS 
TEXPECT IT TO BE SET INITIALLY 
soe lay INSTR LOC 


3;SET UP REG ADRS 22 
;READ CONSOLE 1 LP INTR ENABLED REG 
SAVE ONLY LP_INTR ENABLED BIT 

+ are ,SBDDAT 31S i; ach 


:BR 
42 :CONSOLE 1 +-St ae ENABLE INSTR ER 

#40, $GDDAT G0 TO RESET’ S ATE 

TST123 ADVANCE TO NEXT TEST IF BOTH STATES TESTED 
#20,BUFFER [CLR THE ENABLED BIT AT INSTR LOC 

1$ ;GO TRY RESET STATE 


LTA ERR ERE REE REE RERKEKEEEE EERE REE REE KEKE 


ZeTEST 123 TEST THAT CONSOLE 1 L.P. INTR ENABLED DOES NOT RESET WHEN ENA=0 
MARA SASASAALA £2 BARS SSASLASAE RESALES AER SRA SEERA SSS ASA RSS SSSR S AER SSS ASE SS 
181123: SCOPE 
MOV #123, $TESTN :7SET TEST NUMBER IN APT MAIL BOX 
PT 7SET MAINT SWITCH #2 
DD sEXPECT L.P. INTR ENABLED TO BE SET 
#164460,BUFFER SET UP INSTR LOC 
WBUFFER;@DPC  —_ START 


E 
#164400, “BUFFER+2° 7SET UP_ INSTR WITH ENA=0 
aDPC ;ADVANCE TO NEXT INSTR 
001122 SET UP REG ADRS 22 
164024 71S L.P. INTR ENABLED STILL SET? 
;zADVANCE TO NEXT TEST IF STILL SET 
: INDICATE IT WAS CLEARED 
CONSOLE 1 L.P. CHANGE INTR ENABLE INSTR ER 


FE ERA EEE EE 


i*TEST 124 TEST THAT NOP INSTR CAN SET & RESET L.P. SWITCH INTR ENABLED-CONSOLE 0 


5 RARER EERE EEE EEE KEE ERE EEE ERE REE 


TST124: SCOPE 
MOV #124, $TESIN 33SET TEST NUMBER _IN APT MAIL BOX 
020000 #B TKPT 3SET MAINT oe 4 
016076 ;SET UP SCOPE LOOP ADRS 
002000 0, $GDD SEXPECT LP INTR ENABLED BIT 
016070 164014 rieadia. BUFFER ;SET UP INSTR 
016076 012777 031076 : #BUF FER, aDPC START 
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C2VSAB.P11  29-MAY-79 10:10 1124 TEST THAT NOP INSTR CAN SET & RESET L.P. SWITCH INTR ENABLED-CONSOLE 0 SEQ 0052 
1680 016104 013737 002052 001122 MOV CONS , SBDADR ;SET UP REG ADRS 22 
1681 016112 017737 163734 001126 MOV @CONS, $BDDAT :READ L.P. SWITCH INTR ENABLED REG 
1682 016120 042737 175777 001126 BIC cia SBDDAT SAVE ONLY L.P. SwiTCH INTR ENABLED BIT 
1683 016126 023737 001126 001126 CMP $GDDAT,$BDDAT :1S IT CORRECT? 
1684 016134 001401 BEQ 2$ BR IF OK 
1685 916136 104043 ERROR 43 :CONSOLE Q.L.P. sw INTR ENABLE INSTR ER 
1686 016140 162737 002000 001124 2: SUB #2000,$GDDAT GO TO RESET STATE 
1687 016146 100404 BMI TST125 ADVANCE TO NEXT TEST IF BOTH STATES TESTED 
1688 016150 042737 000004 031076 BIC #4 ,BUFFER “CLR THE ENABLED BIT AT INSTR LOC 
1689 016156 000747 BR 1$ [GO TRY RESET STATE 
1691 © fe ti ie ROTO IIIT SOIT TOOT TOSI TORO TOOT TOIT III 
(3) TRTEST 125 TEST THAT L.P. SWITCH INTR ENABLED DOES NOT RESET WHEN ENA=0 
(3) © Re I I ITT IT TT TI TTT OTITIS TITTIOIRTK RRIEERTE IKEKK 
(2) 016160 090004 +§1125: SCOPE 
(2) 016162 %12737 000125 001206 MOV #125,$TESTN ;;SET TEST NUMBER iN APT MAIL BOX 
1692 016170 012777 020000 163664 MOV welris. aSTKPT SET MAINT SWITCH #2 
1693 016176 012737 002000 001124 MOV #2000.$GDDAT ; EXPECT L.P. SWITCH INTR ENABLED TO BE SET 
1694 016204 012737 164014 031076 MOV #164014, SBUFFER SET UP INSTR LOC 
1695 016212 012777 031076 163610 MOV WBUFFER;@DPC  _; START 
169% 016220 012737 164000 031100 MOV 7194000 BUFFER+2" ;SET UP INSTR WITH ENA=0 
1697 016226 005277 163576 INC aDPC ADVANCE 10 NEXT INSTR 
1698 016232 013737 002052 001122 MOV CONS , SBDADR ISET UP REG ADRS 22 
1699 016240 032777 002000 163604 BIT #2000. @CONS ZI L.P. SWI”CH INTR ENABLED STILL SET? 
1700 016246 001003 BNE TST126 : ADVANCE TO NEXT TEST IF STILL SET 
1701 016250 005037 001126 CLR S$BDDAT “INDICATE IT WAS CLEARED 
1702 016254 104043 ERROR 43 “CONSOLE 0 L.P. SW CHANGE INTR ENABLE INSTR ER 
1704 SM IT TT RRR ERE EERE EERE EERE AREER AERA 
(3) TRTEST 126 TEST THAT NOP INSTR CAN SET & RESET L.P. SWITCH INTR ENABLED-CONSOLE 1 
(3) ° © ee te Se tee te te te ee te ie te ee RRA RRERRREEREREEEEERAAREREREEKKEREH 
(2) 016256 000004 751126: SCOPE 
(2) 016260 012737 000126 001206 MOV #126, $TESTN ;SET TEST NUMBER IN APT MAIL BOX 
1705 016266 012777 0 163566 MOV #81T13,aSTKPT >SET MAINT SWITCH #2 
1 016274 012737 016316 001110 MOV #1$, SLPERR :SET UP SCOPE LOOP ADRS 
1707 302 012737 20 001124 MOV #20. $GDDAT EXPECT L.P. SWITCH INTR ENABLED BIT 
1708 016310 012737 164414 031076 MOV rieaels, BUFFER :SET UP INSTR 
1709 016316 012777 031076 163504 1$: MOV WBUFFER.@DPC  —-: START 
1710 016324 013737 002052 001122 MOV CONS , SBDADR [SET UP REG ADRS 22 
1711 016332 017737 163514 001126 MOV @CINS,$BDDAT = :READ L.P. SWITCH INTR ENABLED REG 
1712 340 062737 177757 001126 BIC #177757 SBDDAT SAVE ONLY L.P, SWITCH INTR ENABLED BIT 
1713 346 023737 001124 001126 CMP S$GDDAT,$BDDAT :1S IT CORRECT? 
1714 016354 001401 BEQ 2$ BR IF OK 
1715 016356 104043 ERROR 43 TCONSOLE 1.L.P. SW INTR ENABLE INSTR ER 
1716 162737 000020 001124 2$: SUB #20,$GDDAT :G0 TO RESET STATE 
1717 016366 100404 BMI TSTi27 : ;ADVANCE TO NEXT TEST IF BOTH STATES TESTED 
1718 016370 042737 000004 031076 BIC #4 ,BUFFER [CLR THE ENABLED BIT AT INSTR LOC 
1719 016376 000747 BR 1$ [GO TRY RESET STATE 
1721 © I HIRE ERREEEEEEEEREEEEREEEREEEKKEEE 
(3) SSTEST 127 TEST THAT L.P. SWITCH INTR ENABLED DOES NOT RESET WHEN ENA=0 
(3) REE EEE EEE ERA ERE 
(2) 016400 009004 11127: SCOPE 
(2) 016402 012737 000127 001206 MOV #127,$TESTN ;SET TEST NUMBER IN APT MAIL BOX 
1722 016410 012777 020000 163444 MOV #B1T13,aSTKPT 7SET MAINT SWITCH #2 
1723 016416 012737 000020 001124 MOV #20, $GDDAT :EXPECT L.P. Sw INTR ENABLED TO BE SET 
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012737 164 031076 #164414,BUFFER ;SET UP INSTR LOC 
163370 MBUF FER, a@DPC START 
031100 Aa + poses “BUFFER+2° :SET UP ge LOC WITH ENA=0 
aDPC ;ADVANCE TO NEXT INS 
001122 MO CONS , SBDADR SET UP REG ADRS 22 
163364 #20, aCONS 71S L.P. SW INTR ENABLED STILL SET? 
TST130 :;ADVANCE TO NEXT TEST IF STILL SET 
$BDDAT ; INDICATE IT WAS CLEARED 
43 ;CONSOLE 1 L.P. SW CHANGE INTR ENABLE INSTR ER 


BYRVSOAG 


AN 


SL AAR ERA EEE REE EERE EERE ERE E REE EERE EERE ERE 


:*TEST 130 TEST THAT RESET WILL CLEAR L.P. INTR ENABLES & COLOR 


FARRER ERE ERE REE ERE REE EERE REREAD 


TST130: SCOPE 
MOV #40, $TIMES ::D0 40 ITERATIONS 
#130, $TESTN szS€T TEST y*~% IN APT MAIL BOX 
CONS , $BDADR :SET UP REG ADRS 22 
MBIT13,aSTKPT  ;SET MAINT SW 5° 
#164274,BUFFER :SET UP INSTR FOR CONSOLE 0 L.P. INTR ENAB 
#BUF FER; aDPC ; START 
031100 Ay = hs eBUFFER+2 ;CONS 1i.P. INTR ENA 


031102 he ste /BUFFER+4 — :COLOR LEVEL 
001124 MO WBIT15,$GDDAT EXPECT INTENSITY ENABLE CONSOLE 0 ONLY 


;CLR_ FLAGS 
163246 001126 MO @aCONS , SBDDAT ;READ FLAGS 
001124 001126 S$GDDAT.SBDDAT ;1S REG 22 CORRECT? 
TST131 3sNEXT TEST IF SO 
32 ;RESET FAILED TO SET UP REG 22 


WEA S tee ERR E EERE E REESE SERARAR SRSA ASAE SE RAS ASA RRR RRR RA SEARS RSS SD 


S*TEST 131 JUMP TEST TO LOC. 25252 


weet teeth eee eee eeee SERRA RASASALEALALASEAAAS ARAL ERA SAAR RSE SESS: 


TS1131: SCOPE 
MOV 


AAA ANNAN SSNS 


UBRRERERKEREW 
OCOUOONANEWN—OO 


7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 


#131,$TESTN ::;SET TEST NUMBER IN APT MAIL BOX 
#B1T13,aSTKPT ;SET MAINT SWITCH #2 

#1 , @DBUF — DJUMP INTO THE BUFFER 
#25252, $GDDAT MOVE 25252 INTO THE NEXT LOC. 


DBUF , aDPC START THE DISPLAY 
031100 $GDDAT ,BUFFER+2. :LD ADRS 
aDPC sSINGLE STEP THE DISPLAY 
001122 DPC ,$BDADR iSET UP REG ADRS 00 
001126 @aDPC , $BDDAT » READ THE DISPLAY P.C. 
001126 SGDDAT , SBDDAT ; COMPARE EXPCT TO RCVD 
4 TST132 ;;BR IF EQUAL 
016716 104010 10 ;DJUMP FAILED TO LOAD THE NEW 
DISPLAY P.C. PROPERLY 


DDSI SOI IO IISIOIDIIIDISIDIIOIIOISIOISIOIIOIIOIIOIDIOIDIOISIDIOISISIIDIDOI SIDI TIDI ISO IOI IOI It 
*TEST 132 JUMP TEST TO LOC. 12524 
ZIG GIO IESIOISIOISIOISISIDIOIOIOIOIOIOIUIOISIOIDIOIIOIUIOISIOIDIOIIOIDIOISIOISI IODC IDIIOISITIIDIDIDIOI IDI 
016720 000004 TST132: SCOPE 
016722 012737 000132 001206 MOV #132,$TESIN 72SET TEST NUMBER IN APT MAIL BOX 
016730 012777 020000 163124 MOV #B1T13,aSTKPT SET MAINT SWITCH #2 





SOGSI IIIT 


i a a el 
NRIWW 


SHSegsessESSES IR 


— 3 od od 


Co 00 Co Os 
Wr-o 
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1767 Ay 6736 
1768 


017016 


017020 


017124 


017126 
017134 


012777 


162737 
103351 


001124 


Say head INSTRUCTION “iy PART 1 


163034 


031100 


001122 
001126 
001126 


001166 


001126 


001124 


001206 
001110 
162700 


031076 
seseee 


001126 


001124 


C 
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MOV #160000, aDBUF | ;MOVE DJUMP INTO THE BUFFER 
MOV #12524, $GDDAT :MOVE 12524 INTO THE NEXT LOC. 


MOV DBUF , aDPC START THE DISPLAY 

MOV SGDDAT ,BUFFER+2 :LD ADRS 

INC aDPC ;SINGLE STEP THE DISPLAY 

MOV DPC ,$BDADR ;SET UP REG ADRS 00 

MOV @aDPC , $BDDAT sREAD THE DISPLAY P.C. 
CMP $GDDAT , $BDDAT ; COMPARE EXPCT TO RCVD 
BEQ TST133 73BR IF EQUAL 

ERROR i0 ;DJUMP FAILED TO LOAD THE NEW 


DISPLAY P.C. PROPERLY 


wee P Pete REESERRRRSSLASARARASRASASARRRRSS SAAS ERR ASRS AAS ARRAS SSS SD | 


S*TEST 133 JUMP TO EACH EXISTING LOCATION IN LOWER BANK 


ROAD AAALASLAAAAASSELARAALARRRERASALELA SALSA RS SARE SERRA RRR ASSESS 


157133: SCOPE 
MOV #20,$TIMES ::D0 20 ITERATIONS 
MOV #133,$TESIN ::SET TEST NUMBER IN APT MAIL BOX 
MOV $LSTAD,$GDDAT :LOAD JUMP DESTINATION 


MOV #B1T13,aSTKPT sSET MAINT SWITCH #2 
MOV #160000,BUFFER ;LOAD ‘DISPLAY JUMP’' INST 
1$: MOV #BUF FER, aDPC START DISPLAY 
MOV SGDDAT ,BUFFER+2 :SET UP ADRS 
INC aDPC ;SINGLE STEP THE DISPLAY 
MOV DPC, $BDADR 7SET UP REG ARS 00 
MOV aDPC ,SBDDAT :READ DESTINATION D.P.C. 
CMP $GDDAT,$BDDAT :TEST IF EXPECTED 
BEQ 2s :;BR IF SAME 
ERROR 10 ; JUMP TO LOCATION oo 
[N=ADDRESS IN $GDD. 
2$: SUB #2, $GDDAT sADJUST EXPECTED ADDRESS 
BCC 1$ :BR IF MORE LOCATIONS TO TEST 
FD IIR RRR KRHA REE EERE RARER ERE EERE EERE 
S*TEST 134 TEST ‘JUMP RELATIVE’ INSTR (BIT 8=0) AT LOC ‘BUFFER’ & VERIFY NEW DPC AD 


SEERA 


1S1134: SCOPE 
MOV #134, $TESIN ::SET TEST NUMBER IN APT MAIL BOX 


MOV #1$,$LPERR :SET UP SCOPE LOOP A 
MOV #81113, aSTKPT >SET MAINT SWITCH #2 
MOV #400,R0 :SET UP MSB FIRST 
BR 2$ G0 CALCULATE ADRS 
1$: MOV #161000,BUFFER SET UP JUMP RELATIVE INSTR 
BIS RO, BUFFER [SET UP RELATIVE ADRS PATTERN 
MOV WBUFFER,aDPC =: START 
MOV DPC , SBDADR :SET UP REG ADRS 00 
MOV aDPC , $BDDAT “READ NEW DPC ADRS 
CMP $GDDAT,$BDDAT DOES IT EQUAL THE CALCULATED ADRS? 
BEQ 2$ ‘BR IF OK 
ERROR 11 ‘JUMP RELATIVE POSITIVE FAILED 
2$: ASR RO ;SHIFT RIGHT TO NEXT BIT 
BCS TST135 > ADVANCE TO NEXT TEST IF DONE 
MOV RO, SGDDAT ‘SET UP OFFSET VALUE 
ASL $GDDAT “MAKE IN TO WORD OFFSET 
ADD WRUFFER+2,$GDDAT- ADD IN ADRS OF INSTR PLUS 2 


BR 1$ ;TRY THIS RELATIVE ADRS 
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1814 
lave LEE EERE REE EEE RRR EER ee 
(3) s*TEST 135 TEST "JUMP RELATIVE’ INSTR (BIT 8=1) AT LOC ‘BUFFER’ & VERIFY NEW DPC 
(3) LRA EEE EATER REE EERE ee 
(2) 017262 900004 TST135: SCOPE 
(2) 017264 012737 000135 001206 MOV #135, $TESTN 4s TEST NUMBER IN APT MAIL BOX 
1816 017272 012737 017314 001110 MOV #1$.$LPERR ;SET UP SCOPE LOOP ADRS 
1817 017300 612777 020000 162554 MOV #B1T13,aSTKPT sSET MAINT SWITCH #2 
1818 017306 012700 000400 MOV #400,R0 ;SET UP MSB FIRST 
1819 017312 000423 BR 2s G0 CALCULATE ADRS 
1820 017314 012737 161400 031076 1$: MOV #161400 BUFFER SET UP JUMP RELATIVE INSTR 
1821 017322 050037 031076 BIS RO, BUFFER +344 » RELATIVE ADRS PATTERN 
1822 017326 012777 031076 162474 MOV ABUFFER,aDPC STAR 
1823 017334 013737 002030 001122 MOV DPC, $BDADR 2 SET uP REG . 00 
1824 017342 017737 162462 001126 MOV @DPC ,$BDDAT READ NEW DPC ADRS 
1825 017350 023737 001124 001126 CMP $GDDAT, SBDDAT “DOES IT EQUAL THE CALCULATED VAIL.UE? 
1826 017356 001401 BEQ 2s ‘BR IF OK 
1827 017360 104011 ERROR 11 > JUMP RELATIVE NEGATIVE FAILED 
1828 017362 006200 2$: ASR RO : SHIFT RIGHT TO NEXT BIT 
1829 017364 103413 BCS TST136 ;;ADVANCE TO NEXT TEST IF DONE 
1830 017366 012737 031100 001124 MOV #BUFFER+2,$GDDAT ;SET UP CURRENT ADRS 
1831 017374 010001 MOV RO,R1 GET RELATIVE ADRS VALUE 
1832 017376 005401 NEG R1 *MAKE NEG 
1833 017400 006301 ASL R1 = CORRECT FOR WORD OFFSET 
1834 017402 042701 177000 BIC #177000,R1 ;GET RID OF MSBS 
1835 017406 160137 001124 SUB R1,$GDDAT ;SUB OFFSET FROM DPC VALUE 
yr 017412 000740 BR 1$ : TRY NEXT RELATIVE ADRS 
1 
1838 SOURIS IOI IOIUIOIIIIOIOIO IIIS IIT I I TIT TOT I ITO TOTTI IE 
(3) s*TEST 136 TEST THAT JUMP ABS INSTR WILL SETUP DPC WITH A FLOATING ONE 
(3) COI IOI III IIIOI IOI IOIOIOIOI IIIS III TOTO TOR TTT I TOTTI I TOT I TOTTI I TOTO OIE 
(2) 017414 000004 TST136: SCOPE 
(2) 017416 012737 000136 001206 MOV #136,$TESTN ;SET TEST NUMBER IN APT MAIL BOX 
1839 017424 912777 020000 162430 MOV #B1T13,aSTKPT sSET MAINT SWITCH #2 
1840 017432 012737 160000 031076 MOV #160000,BUFFER ;SET UP JUMP ABS INSTRUCTION AT ‘BUFFER' 
1841 017440 005037 001124 CLR SGDDAT sEXPECT ZEROS FIRST TIME 
1842 017444 012737 000001 031100 MOV #1 ,BUFFER+2 SET UP ABS ADRS TO #1 
1843 017452 012777 031076 162350 1$: MOV #BUFFER,aDPC START 
1844 017460 012737 017452 001110 MOV #1$,$LPERR 7SET UP SCOPE Pg ADRS 
1845 017466 005277 162336 INC aDPC PICK UP ABS ADRS xe B xe 
1846 017472 013737 002030 001122 MOV DPC ,$BDADR :SET UP REG oy 00 ae B xe 
1847 017500 000240 NOP ALLOW TIME FOR 2ND NPR 
1848 017502 017737 162322 001126 MOV @DPC ,$BDDAT “GET ADRS JUMPED TO 
1849 017510 023737 001124 001126 CMP SGDDAT , S$BDDAT 21S IT CORRECT? 
1850 017516 001401 BEQ 2$ ;BR IF OK 
1851 017520 104010 ERROR 10 ; JUMP ABSOLUTE FAILED (FLOAT A 1 ADDRESS) 
1852 017522 006337 031100 2s: ASL BUF FER+2 ;ADVANCE ONE BIT LEFT 
1853 017526 103404 BCS TST137 ; :ADV. VANCE TO NEXT TEST IF ALL BITS TESTED 
1854 017530 013737 031100 001124 MOV BUF FER+2,,$GDDAT SET UP EXPECTED ADRS 
4 234 017536 000745 BR 1$ ;TRY NEXT BIT 
1857 DOO III IUIISIIIOIOIDIOIOISIOIOIOI IOI SII ITI II IIT I I I II I ITO I TTT 
(3) Z*TEST 137 TEST THAT JUMP ABS INSTR WILL SETUP DPC WITH A FLOATING ZERO 
(3) DDI IIIOIIIOIIDIOIOIIDIOI IIS IOIOIGIOIOIOIIDOIISIOIOISIDIOIIICIOIIDIDIGIIDIOI IOI I 
(2) 017540 000004 TST137: SCOPE 


(2) 017542 012737 000137 001206 MOV #137,$TESTN 72SET TEST NUMBER IN APT MAIL BOX 


ee | 
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017550 012737 017600 001110 #1$,$LPERR ;SET UP SCOPE LCOP ADRS 
SET MAINT SWITCH #2 
:SET UP UMP ABS INSTR AT ‘BUFFER* 
START TO ZERO 


031100 S$GDDAT ,BUF FER+2 :SET UP ADRS 

aDPC PICK UP ABS ADRS 
001122 DPC ,$BDADR “SET UP REG ADRS 00 
001126 aDPC, $BDDAT :GET ADRS JUMPED TO 
001126 a decent ‘aR ee 


10 JUMP ABSOLUTE rrEST (TO A FLOATING ZERO) 
001124 : $GDDAT ; SHIFT ZERO BIT 

TST140 ; sADVANCE TO NEXT TEST IF ALL BITS TESTED 
000002 001124 #2,$GDDAT ;REPLACE LSB 

1$ TRY NEXT BIT 


FRR EKER AREER RAKE REE EERE REE REE E REE KE EH 
S*TEST 140 TEST THAT THE ‘JSR ABSOLUTE" INSTR WILL SET ‘JSR’ BIT IN REG 32 
TERRE REE REREAD 
157140: SCOPE 
001206 MOV #140, $TESTN ::SET TEST NUMBER IN APT MAIL BOX 
162160 #B1T13,aSTKPT >SET MAINT SWITCH #2 
031076 #162000 BUFFER ;SET UP JSR ABS INSTR 
ER+2 7CLR ABS ADRS LOC 
001124 sEXPECT JSR BIT 
162100 : : START 
002062 001122 “SET UP REG ARS 32 
001000 162116 WBIT9.aSTKPT :IS JSR BIT SET? 
TST141 > ADVANCE TO NEXT TEST IF OK 
001126 $BDDAT *SHOW THAT IT WAS ZERO 
017752 12 *CALL ERROR ROUTINE USING MSG 23 


SL EER REE REE REE EEE EEE EERE KERR ERE ER 
S*TEST 161 TEST "JSR RELATIVE’ INSTR (BIT 8=0) AT LOC "BUFFER' & VERIFY NEW DPC ADR 
SEAR RE RRR RARE REE RE REE RE RRR EREEE EERE RE RE REEEREREEEH 
017754 000004 81141: SCOPE 
001206 MOY #141,$TESTN ::SET TEST NUMBER IN APT MAIL BOX 
162070 #B1T13,aSTKPT 7SET MAINT SWITCH #2 
001110 #1$,$LPERR »SET UP SCOPE LOOP ADRS 
#400,RO SET UP MSB FIRST 
BR 2$ *GO CALCULATE ADRS 
162046 18: #40,@ SRESET STK PTR 
031076 MO #168000, BUFFER ‘SET UP JSR RELATIVE INSTR 
RO, BUFF SSET UP RELATIVE ADRS PATTERN 
161774 SORTER SOPC START 
DPC, $BDADR :SET UP REG ADRS 00 
aDPC, SBDDAT SREAD NEW DPC ADRS 
001126 SGDPAT . SBDDAT :DOES IT EQUAL THE CALCULATED ADRS? 


:BR IF OK 
13 JSR RELATIVE hg FAILED 
; SHIFT RIGHT TO NEXT BIT 
TST142 ;;ADVANCE TO NEXT TEST IF DONE 
aospanent :SET UP OFFSET VALUE 
$GDDAT :MAKE INTO WORD OFF SET 
001124 #BUFFER+2,$GDDAT* ADD IN ADRS OF INSTR PLUS 2 
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BR 1$ :TRY THIS RELATIVE ADRS 
LF EAARAARAARARAERAARARARAEAERARAAAARARAAAAAARAATKRARAARE ERRATA 
S*TEST 142 TEST "JSR RELATIVE’ INSTR (BIT 8=1) AT LOC ‘BUFFER’ & VERIFY NEW DPC ADR 
CFTR AREER AREER AREER EREREAAREAAERRERERARAARERRERRAERARARTR EE 
151142: SCOPE 

MOV #142, $TESIN :;SET TEST NUMBER IN APT MAIL BOX 

MOV #BITI3, aSTKPT >SET MAINT SWITCH #2 

MOV #1$,$LPERR :SET UP SCOPE LOOP ADRS 

MOV #400,RO [SET UP MSB FIRS 

BR 2s *GO CALCULATE ADRS 
1$ BIS SRESET STK PTR 

MOV ni68t00, BUFFER ‘SET UP JSR RELATIVE INSTR 

BIS RO, BU ‘SET UP RELATIVE ADRS PATTERN 

MOV SOMETER. SOPC START 

MOV DPC, $BDADR ;SET UP REG ADRS 00 

MOV @DPC, $3DDAT “READ NEW DPC ADRS 

CMP SGDDAT,$BDDAT =:DOES IT EQUAL THE CALCULATED VALUE? 

BEQ $ =BR IF OK 

ERROR 13 ‘JSR RELATIVE NEGATIVE TO ADDRESS FAILED 
2$: ASR RO :SHIFT RIGHT TO NEXT BIT 

BCS TS1143 ADVANCE TO NEXT TEST IF DONE 

MOV #BUFFER+2,$GDDAT - :SET UP CURRENT ADRS 

MOV RO,R1 :GET RELATIVE ADRS VALUE 

NEG R1 “MAKE NEG 

ASL R1 SCORRECT FOR WORD OFFSET 

BIC #177000,R1 [GET RID OF MSBS 

SUB R1,$GDDAT ‘SUB OFFSET FROM DPC VALUE 

BR 1$ :TRY NEXT RELATIVE ADRS 
SDR RR ERR ER EER EERE REE REE ER EEREREREREERERERK ERE 
S*TEST 143 TEST THAT "JSR ABS' INSTR WILL SET UP DPC WITH A FLOATING ONE 
DLA RRRERE RETR E RH 
757143: SCOPE 

MOV #143, $TESTN ::SET TEST NUMBER IN APT MAIL 80X 

MOV #B1T13, aSTKPT 7SET MAINT SWITCH #2 

MOV #162000, BUFFER ;:SET UP JSR ABSOLUTE INSTR AT ‘BUFFER’ 

CLR $GDDAT ZEXPECT ZEROS FIRST TIME 

MOV #1,BUFFER+2 “SET UP ABS ADRS TO 1 
1$: BIS #40, aSTKPT *RESET STK PTR 

MOV WBUFFER,@DPC START 

MOV #1$,$LPERR :SET UP SCOPE LOOP ADRS 

INC apPc SADVANCE TO ABS ADRS 

MOV DPC ,SBDADR [SET UP REG ADRS 00 

MOV aDPC, $BDDAT [GET ADRS JUMPED T 

CMP $GDDAT,$8DDAT IS IT CORRECT? 

BEQ 2$ ‘BR IF OK 

ERROR 12 ‘JSR ABSOLUTE FAILED (TO A FLOATING ONE ) 
2$: ASL BUFFER*2 sADVANCE ONE BIT LEFT 

BCS TST144 ADVANCE TO NEXT TEST IF ALL BITS TESTED 

MOV BUF FER+2,$GDDAT SET UP EXPECTED ADRS 

BR 1$ RY NEXT BIT 
LLU EE REAR R EH 
SeTEST 144 TEST THAT JSR ABS INSTR WILL SET UP DPC WITH A FLOATING ZERO 


LEAR AAA AAR AREER EEA ER AERA RARER AREER ARERERAERERRAER EAE ES 
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TST144: SCOPE 
MOV #144, $TESTN ::SET TEST NUMBER IN APT MAIL BOX 
MOV #B1T13,aSTKPT >SET MAINT SWITCH #2 
MOV #1$,$LPERR :SET UP SCOPE LOOP ADRS 
MOV #162000,BUFFER SET UP JSR ABSOLUTE AT ‘BUFFER’ 
MOV #177774.$GDDAT :SET LSB TO ZERO 

1$: BIS #40,aSTKPT :RESET STK PTR 


MOV $GDDAT BUFFER+2 :SET UP A 


INC aDPC ADVANCE 10 ABS ADRS 
MOV DPC ,$BDADR SET UP REG ADRS 00 
MOV aDPC , $BDDAT :GET ADRS JUMPED TO 
CMP $GDDAT,$BDDAT  :1S IT CORRECT? 
BEQ 2$ :BR IF OK 
ERROR 12 ;JSR ABSOLUTE Steet (TO A FLOATING ZERO) 
2s: ASL $GDDAT > SHIFT ZERO BIT LEFT 
BCC TST145 ;;ADVANCE TO NEXT TEST IF ALL BITS TESTED 
ADD #2,$GDDAT :REPLACE LSB 
BR 1$ TRY NEXT BIT 
SU ERA REE REE AKREERR ERE ERERREREREEKEEEREEEEEKERREEREE EE H 
S*TEST 145 TEST THAT GRAPHPOLT X CAN LOAD X POSITION REGISTER WITH #1252 


CL RARER EERE AEA EE EERE EERE EERE KERR EERE ERE EKER ERE EE 


TST145: SCOPE 
MOV 


#145, $TESTN :SET TEST NUMBER IN APT MAIL BOX 
MOV XPOS , $BDADR SET UP REG ADRS 04 
MOV #B1T13,@STKPT ;SET MAINT SWITCH #2 


MOV ABUFFER,RO ;LOAD BUFFER POINTER 
MOV #122000,(RO)+  ;LOW INTERSITY = SET GRAPH PLOT X MODE 
MOV #1252, (RO)+ :SET X POSITION 


MOV DBUF , aDPC ;LOAD DISPLAY P.C. 

MOV #1252, $GDDAT LOAD EXPECTED 
INC aDPC SINGLE STEP THE DISPLAY 
JSR PC,DLAY STALL 


MOV aXPOS , $BDDAT TREAD X POSITION 

CMP $GDDAT , $BDDAT ;COMPARE EXPCT TO RCVD 

BEQ TST146 ;;BR IF EQUAL 

ERROR 14 X POSITION REGISTER FAILED TO LOAD 
“PROPERLY USING GRAPH PLOT X MODE 


LTA RRR REEREE ER REE AREER REE REERAEEEEEREE REE 


i*TEST 146 TEST THAT GRAPHPLOT X CAN LOAD X POSITION REGISTER WITH #525 


FF RARER EEE EERE ERE AEE 


TST146: SCOPE 
MOV #146, $TESTN :3SET TEST NUMBER _IN APT MAIL BOX 


MOV XPOS . $8DADR ‘SET UP REG ADRS 04 

MOV #1113 <@STKPT :SET MAINT SWITCH #2 

MOV :LOAD BUFFER POINTER 

MOV 122000, Ro) + ‘LOW INTENSITY - SET GRAPH PLOT X MODE 
MOV (RO) + =SET X POSITION 

MOV ates aDPC ;STAR DISPLAY 

MOV #525, $GDDAT LOAD EXPECTED 

INC aDPC : SINGLE STEP THE DISPLAY 

JSR PC ,DLAY STA 


MOV aXPOS , $BDDAT TREAD” X POSITION 
CMP $GDDAT , $BDDAT : COMPARE EXPCT TO RCVD 


SEQ 0058 


H 
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020734 001401 BEQ TST147 ;;BR IF EQUAL 
020736 104014 ERROR 14 X POSITION REGISTER FAILED TO LOAD 
‘ PROPERLY USING GRAPH PLOT X MODE 


PPR PAASRAARRSALSALLSALESARSSELRSAL ERASERS ARREARS RASA ASRS ARR AAS ADS SS 


T*TEST 147 TEST THAT GRAPHPLOT Y CAN LOAD Y POSITION REGISTER WITH 41252 


WESABE RESAARSASALALELLES ESS SERRA SEL RR SARE R RASA RASA ASRS RRR ASE RRR S SDDS 


020740 000004 TS1147: a 


#147,$TESTN at TEST e*% IN APT MAIi BOX 

YPOS , $BDADR ;SET UP REG ADRS 06 

ht wt 3SET MAINT SWITCH #2 
#BUFFER ;LOAD BUFFER POINTER 

#126000, fro) ;LOW INTENSITY = SET GRAPHPLOT Y 

#1252, (RO)+ ;SET Y POSITION 

DBUF , ADPC ;LOAD THE DISPLAY P.C. 

#1252, $GDDAT ;LOAD EXPECTED 

aDPC sSINGLE STEP THE DISPLAY 

PC ,DLAY 


° s STALL 
@YPOS , $BDDAT sREAD Y POSITION 
001124 126 $GDDAT , $BDDAT ; COMPARE EXPCT TO RCVD 
TST150 :;BR IF EQUAL 
15 :Y POSITION REGISTER FAILED TO LOAD 
;PROPERLY USING GRAPHPLOT Y MODE 


RARER ASRRSSSSSSS SES SSRS RES SRRS LESS ESE RARE RR RRR ERS R ALAR SSR ASS DD 


T*TEST 150 TEST THAT GRAPHPLOT Y CAN LOAD Y POSITION REGISTER WITH #525 
TDIDISIGISSIOISIOIOISIUIOIISIDIOIOIIDIOIIDISIIOIDIOIOIIOIIOISIOIDIITIOI ISIS IIIS ISIOI TDI T OI ITT TE 
TST150: SCOPE 
000150 001206 MO #150, $TESTN geSet VEST eg IN APT MAIL BOX 
001122 YPOS , $BDADR ;SET UP REG A 06 
160772 #B1T13,aSTKPT SET MAINT SWITCH #2 
; LOAD BUFFER POINTER 
7LOW INTENSITY = SET GRAPHPLOT Y MODE 
7SET Y POSITION 
;LOAD THE DISPLAY P.C. 
[LD EXPECTED 
teat STEP THE DISPLAY 


Li 
;READ Y POSITION 
001124 $GDDAT, $BDDAT s COMPARE EXPCT TO RCVD 
To045 1 ::BR IF EQUAL 
104015 15 7Y POSITION REGISTER FAILED TO LOAD 
:PROPERLY USING GRAPHPLOT Y MODE 


DIDISIOIOISIEIDISIOISIIOIIIOISIOIDIDIISIIDIOIUIOIUIOIOIDIOIUIOIIUIDIDIOIOIIDIDIDIDOIDDIDOIDIOISINII IDI ID 
*TEST 151 TEST FOR PROPER SELECTION OF X AND Y REGISTERS 
TASER IUIUI OI IOIIOIOIOIUIOIIIIDISIUIOIOUIIOIOIOOIUIDIOOIDIDIOIIODOO IO On iit itt 
TST151: SCOPE 
000151 001206 V #151, $TESTN 7;SET TEST NUMBER IN APT MAIL BOX 
001122 XPOS , $BDADR SET UP REG ADRS 04 
160666 #B1T13,aSTKPT 3SET MAINT SWITCH #2 
;LOAD BUFFER POINTER 
7LOW INTENSITY = SET GRAPHPLOT X MODE 
234 ;SET X POSITION 
021210 126000 #126000, (RO)+ 7SET GRAPHPLOT Y MODE 





, 
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CZ7VSAB.P11 29-MAY-79 10:10 7151 TEST FOR PROPER SELECTION OF X AND Y REGISTERS SEQ 0060 
2042 021214 012720 001432 MOV #1432, (RO)+ + SET Y POSITION 
2043 021220 013777 002000 160602 MOV DBUF , ADPC LOAD THE DISPLAY P.C. 
2044 021226 012737 001234 001124 MOV #1234, $GDDAT “LD EXPECTED 
2045 021234 005277 160570 INC aDPC S SINGLE STEP THE DISPLAY 
2046 021240 906737 024514 JSR PC ,DLAY STALL 
2047 021244 017737 160564 001126 MOV @XPOS , $BDDAT sREAD X POSITION 
2048 021252 023737 001124 001126 CMP $GDDAT , $BDDAT ; COMPARE EXPCT TO RCVD 
2049 021260 001402 BEQ 1$ 
2050 021262 104014 ERROR 14 ;GRAPHPLOT X MODE FAILED TO SELECT 
2051 021264 000424 BR TST152 es 
2052 
2053 021266 1$: 
(1) 021266 005277 160536 INC aDPC SINGLE STEP THE DISPLAY 
2054 021272 013737 002036 001122 MOV YPOS , $BDADR :SET UP REG ADRS 06 
2055 021300 005277 160524 INC aDPC ;SINGLE STEP THE DISPLAY 
2056 021304 012737 001432 001124 MOV #1432, $GDDAT 1 EXPECTED 
2057 021312 004737 024514 JSR a® DLAY TALL 
2058 021316 017737 160514 001126 MOV @YPOS , $BDDAT ‘READ Y POSITION 
2059 021324 023737 001124 001126 CMP SGDDAT , SBDDAT ; COMPARE EXPCT TO RCVD 
2060 021332 001401 BEQ TST152 7;BR IF EQUAL 
2061 021334 104015 ERROR 15 sY POSITION REGISTER FAILED TO LOAD 
sock ;PROPERLY USING GRAPHPLOT Y MODE 
2064 DDO ORI IGIUISIIIIOI ICICI IOIOIOIIOIIOIUIOIUIOIDIUICIOIOIOIIOIUITIOI OIRO Se 
(3) s*TEST 152 TEST THAT RESET CLEARS X AND Y POSITION REG. 
(3) 2 OIRO III IOIIUI III TOI IOI II I TOIT ITI IAAI SAS ISISSISISAISISAASASAAS. 
(2) 021336 000004 TST152: SCOPE 
(1) 021340 012737 000040 001166 MOV #40, $TIMES 7:D0 40 ITERATIONS 
(2) 021346 012737 000152 001206 MOV #152,$TESTN 73SET TEST NUMBER IN APT MAIL BOX 
2065 021354 013737 002034 001122 MOV XPOS , $BDADR :SET UP REG ADRS S 04 
2066 021362 012737 114000 031076 MOV #114000,BUFFER ;LOAD ‘POINT’ INST. 
2067 021370 012777 020000 160464 MOV #B1T13,aSTKPT ;SET MAINT SWITCH #2 
2068 021376 012777 031076 160424 MOV ABUFFER,a@DPC 7 START DISPLAY 
2069 021404 012737 001777 031100 MOV #1777 ,BUFFER+2 tX=1777 
2070 021412 005277 160412 INC aDPC SINGLE STEP THE DISPLAY 
2071 021416 012737 001777 031102 MOV #1777 ,BUFFER+4 ;Y=1777 
2072 021424 005277 160400 INC aDPC sSINGLE STEP THE DISPLAY 
Sore 021430 004737 024514 JSR PC,DLAY s STALL 
2075 021434 000005 RESET sINITILIZE 
2076 021436 005037 001124 CLR SGDDAT :CLEAR EXPECTED 
2077 021442 017737 160366 001126 MOV @XPOS , $BDDAT ;READ X POSITION 
2078 021450 001401 BEQ 1$ ;;BR IF CLEARED 
las 021452 104032 ERROR 32 >RESET FAILED TO CLEAR X POS. REGISTER 
2081 021454 013737 002036 001122 1$: MOV YPOS , $8DADR 7SET UP REG ADRS 06 
2082 021462 017737 160350 001126 MOV a@YPOS , S$BDDAT ;READ Y POSITION 
2083 021470 001401 BEQ TST153 7;BR IF CLARED 
2084 021472 104032 ERROR 32 ;RESET FAILED TO CLEAR Y POS. REGISTER 
2085 DDO IOI IIOIIDIIUIOIOIOIOIOIIIOIOISIOIIOIIIUIOIUISIIIUIDIOIIIOIOIOIOIOOIITIOIIOIOIDIOIIDISI OIG IDE 
(3) s*TEST 153 TEST THA] DISPLAY BUSY WILL SET & THEN CLR ON INTERNAL STOP 
(3) DDO IIIIIIUIOIUIOUICIIDIIDIOIOIOIOIIOIOUIUIDIOIUOI IO IOUT inno ion tt tit 
(2) 021474 000004 TST153: SLOPE 
(2) 021476 (12737 000153 001206 MOV #153, $TESTN ;SET TEST NUMBER IN APT MAIL BOX 
2086 021506 J12777 020000 160350 MOV #BI1T13,aSTKPT “SET MAINT SW 2 
2087 021512 012737 100000 001124 MOV #100000,$GDDAT ;EXPECT DISPLAY BUSY INITIALLY 
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38 
TEST THAT DISPLAY BUSY WILL SET & THEN CLR ON INTERNAL STOP SEQ 0061 


TeTEST 154 


FD RII IRI REE ERE RK KR REE ERE EER EERE 


TEST THAT EXTERNAL STOP WILL SET & RESET WITH DISPLAY OFF 


SCOPE 


SeTEST 155 


SOO EERE REE EEE REE REERE KERR KEREE REE ERE ERR EERE 


TST155: 


a 


#164000, pat ok 
Aik 4'4'f BUFFER 
#BUFFER ,aDPC 
SREG1, SBDADR 
@SREG 


1$ 
$BDDAT 
44 
aDPC 
$GDDAT 
@SREG1 


TST154 
ee nene 


TEST THAT RESET WILL CLEAR DISPLAY BUSY 


SRK RRR EERE REE EERE ERE REE KERR ERK EERE REE REE EE 


TST154: 


#40,$TIMES 
#154, $TESTN 
SREG1, $BDADR 
#BIT13, aSTKPT 
#164000, BUFFER 
#BUF FER. aDPC 
#404, $GDDAT 


@SREG1, $BDDAT 
$GDDAT. SBDDAT 
TST155 

ae 


#40,$TIMES 
#155, $TESIN 
#B1T13,aSTKPT 
#340,PSW 


SREG1, $BDADR 
#200, $GDDAT 
$GDDAT ,@SREG1 
@SREG1 


1$ 
SBDDAT 
45 


A#BUF FER ,aDPC 
@SREG1 
TST156 
$GDDAT 
rk , SBDDAT 





:SET wi A NOP INSTR 
START SET UP LD STATUS A INSTR WITH STOP 


ieee UP REG ADRS 12 
SEE THAT DISPLAY BUSY IS SET 


BR IF SO 
; INDICATE DISPLAY BUSY NOT SET 
:DiSPLAY BUSY NOT SET 
:ADVANCE TO STOP INSTR 

sEXPECTE ZERO 

s SEE THAT DISPLAY BUSY HAS CLEARED 

;GO TO NEXT TEST IF OK 

S INDICATE DISPLAY BUSY WAS STILL SET 
:DISPLAY BUSY FAILED TO CLR ON STOP INSTR 


3:D0 40 ITERATIONS 

;SET TEST NUMBER IN APT MAIL BOX 
ser ~y ADRS 12 

SET MAINT SW 2 

#SET - NOP INSTR 


TAR 
‘EXPECT ONLY CHAR & VECTOR SCALE BITS 
;CLR BUSY 

SREAD REG 12 

:1S_IT CORRECT? 
:;NEXT TEST IF OK 

RESET FAILED TO CLR DISPLAY BUSY 


et 40 ITERATIONS 
:SET TEST NUMBER _IN APT MAIL BOX 
SET MAINT SWITCH #2 
:SET PRIORITY TO HIGEST LEVEL 









EXTERNAL STOP FAILED TO SET 
;CLR EXTERNAL STOP BIT 

+ CHECK THAT IT WAS CLEARED 
;;BR TO NEXT TEST IF OK 
SEXPECTED ZERO 

INDICATE THAT IT DID NOT CLR 
[EXTERNAL STOP FAILED TO CLR ON START 
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ZVSAB.P11 29—MAY-79 10:10 7156 TEST THAT EXTERNAL STOP WILL SET & RESET WITH DISPLAY BUSY SEQ 0062 
2134 FERRARA ARERR EAEEEREKREEERERERRRE RARER EERRERERER RRR 
(3) :xTEST 156 TEST THAT EXTERNAL STOP WILL SET & RESET WITH DISPLAY BUSY 
(3) RARER REE EERE EERE EERE REE REE ERE ERE ARERR ER 
(2) 022032 900004 T$T156: SCOPE 
(2) 022034 012737 000156 001206 MOV #156, $TESTN 77 SET TEST NUMBER IN APT MAIL BOX 
2135 022042 012777 020000 160012 MOV #BITI3, @STKPT ;SET MAINT SWITCH #2 
2136 022050 012737 000340 177776 MOV #340,PSW :SET PSW TO 7 
2137 022056 012737 000200 001124 MOV #200, $GDDAT TEXPECT EXTERNAL STOP TO BE SET INITIALLY 
2138 022064 012737 164000 031076 MOV #164000,BUFFER :SET UP A NOP INSTR 
2139 022072 012777 031076 157730 MOV WBUFFER.@DPC = START 
2140 022100 012737 164000 031100 MOV #164000, BUFFER+2 :SET UP ANOTHER NOP 
2141 022106 013777 001124 157726 MOV $GDDAT, aSREG1 s ISSUE A SOFTWARE S 
2142 022114 005277 157710 INC aDPC THIS RESUME SHOULD ee EXTERNAL STOP TO SET 
2143 022120 013737 002042 001122 MOV SREG1,$BDADR  :SET UP REG ADRS 12 
2144 022126 :032777 000200 157706 BIT #200, aSREG1 ‘SEE IF IT SET 
2145 022134 001004 BNE 1$ “BR IF SO 
2146 022136 005037 001126 CLR $BDDAT : INDICATE IT DID NOT SET 
2147 022142 104045 ERROR 45 : EXTERNAL STOP FAILED TO rs ee DISPLAY BUSY 
2148 022144 000415 BR TST157 ;;GO LOOK FOR LOOP ON TEST 
2149 022146 012777 031076 157654 1$: MOV ABUFFER,aDPC * START - THIS SHOULD CLR Ext “STOP 
2150 022154 032777 000200 157660 BIT #200, aSREG1 :CHECK THAT IT DID CLEAR 
2151 022162 001406 BEQ ed 1137 GO TO NEXT ps IF EXTERNAL STOP CLEARED 
2152 022164 005037 001124 CLR “EXPECTED ZERO 
2153 022170 012737 000200 001126 MOV $300, S8DDAT ‘INDICATE IT DID NOT CLR 
Slee 022176 104045 ERROR 45 * EXTERNAL STCP FAILED TO CLR ON START 
2156 DLR EEKER EEE 
(3) s*TEST 157 TEST THAT RESET WILL CLEAR EXTERNAL STOP 
(3) CLEARER ERA AE AKER ERE EERE REE RE EEKEEKKEREEKERE ERE 
(2) 022200 000004 1S1157: SCOPE 
(1) 022202 012737 000010 001166 MOV #10, $TIMES ::DO 10 ITERATIONS 
(2) 022210 012737 000157 001206 MOV #157, $TESIN ::SET TEST NUMBER IN APT MAIL BOX 
2157 022216 000005 RESET {MAKE SURE DISPLAY IS OFF 
2158 022220 013737 002042 001122 MOV SREG1,$BDADR §:SET UP REG 12 ADRS 
2159 022226 005037 001124 CLR $GDDAT sEXPECT RESET STATE 
2160 022232 012777 000200 157602 MOV #200, @SREG1 ;SET EXTERNAL STOP 
2161 022240 000005 RESET “CLR IT 
2162 022242 032777 000200 157572 BIT #200, aSREG1 :DID IT CLR? 
2163 022250 001404 BEQ TS1160 NEXT TEST IF SO 
2164 022252 012737 000200 001126 MOV #200, $8DDAT SHOW THAT IT WAS STILL SET 
She 022260 104045 ERROR 45 sRESET FAILED TO CLR EXTERNAL STOP 
2167 DL ERE EEE EEE EEE EERE EEE EEE ERE EERE 
(3) 7*TEST 160 TEST THAT EXTERNAL STOP WILL CAUSE AN INTERRUPT 
(3) DDE EKER EER ER EERE REE REE KERR ERK EERE EEE 
(2) 022262 000004 TST160: SCOPE 
(1) 022264 012737 000040 001166 MOV #40, $TIMES :D0 40. LTERAT IONS 
(2) 022272 012737 000160 001206 MOV #160, $TESTN <°SET TEST NUMBER IN APT MAIL BOX 
2168 022300 012777 020000 157554 MOV #61T13,aSTKPT OS er MAINT SWITCH #2 
2169 022306 000005 RESET sMAKE SURE DISPLAY IS OFF 
2170 022310 012737 000340 177776 MOV #340,PSwW [SET PSW TO 7 
2171 022316 013737 002042 001122 MOV SREG1,$BDADR  :SET UP REG 12 AD 
2172 022324 012737 000200 001124 MOV #200, $GDDAT EXPECT PRTERGAL STOP FLAG 
2173 022332 013701 001252 MOV $VECT1.R1 *GET BASIC VECTOR ADRS 
2174 022336 042701 160000 BIC #160000,R1 * CLEAR PSW BITS s* Bowe 
2175 022342 012711 022406 MOV #1$,(R1) :SET UP STOP INT ADRS 
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1$: CMP 


2$: JSR 
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TEST THAT EXTERNAL STOP WILL CAUSE AN INTERRUPT 


#340,2(R1) 
#200, aSREG1 


PSW 
@SREG1, $BDDAT 
abit ay $BDDAT 

33 

$ 
(R6) +, (R6)+ 
#200, aSREG1 
2$ 
SEDDAT 
PC ,RSTVEC 


;SET UP PSW TO 7 ON INT 
+ CAUSE AN_EXTERNAL STOP INT 
;ALLOW INT TO OCCUR 
SREAD REG 12 
SAVE ONLY STOP FLAG 
ZEXTERNAL STOP FAILED TO INTERRUPT 
:GO LOOK FOR LOOP ON TEST SWITCH 
FIX STK SINCE NO RETURN 
7 CK ge le FLAG IS SET 


;BR 

; INDICATE FLAG WAS NOT SET 

SEXTERNAL STOP INTERRUPTED BUT FLAG NOT SET 
SRESTORE EXTERNAL STOP VECTOR WITH HALT 


MRASEAAALE LAA 2242 RES SSAASASSS EASE AAS E RSE SEER ER ESR ARES SSSA SSS SS 


TEST THAT TIME OUT WILL CAUSE AN INTERRUPT 


RRR ERR KE EKER ERK EEK KEE ERE ERE REE EERE 


SeTEST 161 


1ST161: SCOPE 


BR 
1$: CMP 


2s: JSR 


#40,$TIMES 


#4060. $GDDAT 
cr a@RLO 


a, aDPC 

(SP), (SP) 
@SREG1, $BDDAT 
#173717, $BDDAT 
46 
2$ 
(R6) +, (R6)+ 
@SREG1, $BDDAT 
#173717, $BDDAT 
SoDDAT. , $BDDAT 


46 
PC,RSTVEC 


3:D0 40 ITERATIONS 

32SET TEST NUMBER _IN APT MAIL BOX 
SET MAINT SWITCH #2 

:SET PRIORITY TO HIGHEST LEVEL 

:GET BASIC VECTOR ADRS 

> CLEAR PSW BITS ae B ee 

SET UP TIMEOUT INT SERVICE W sass 

[SET UP PRIORITY a 7 ON IN 

;SET UP REG 12 AD 

EXPECT TIMEOUT e DPC 16,17 

RELOCATE TO ADRS 760000 

ZALLOW INTERRUPT TO OCCUR 

DISPLAY WILL TIMEOUT AT ADRS 760000 

ALLOW TIME 

sREAD REG 12 

SAVE ONLY TIMEOUT BIT & DPC 16,17 

:VS60 FAILED TO INTERRUPT ON TIME OUT 

:GO LOOK FOR LOOP ON TEST SWITCH 

iF IX ey ® ee NO RETURN 

zREAD STA 

3 SAVE TIMEOUT & DPC 16,17 


CORRECT? 


;BR IF SO 

; TIMEOUT BIT FAILED TO yt ie  heapeiaall 
SRESET TIMEOUT VECTOR WITH 

:CLR RELOCATE REG BEFORE ADVANCING 


WSS SARE RARESRSEASALESEAASALESSAS ESAS ELE SERA ASS ARRAS ASR A AS ASS SS SD 


TEST THAT RESET WILL CLEAR TIMEOUT FLAG 


5 TAREE ER EEE EERE EERE EKER EKER AREER ERE 


S*TEST 162 
151162: SCOPE 


#40, STIMES 
#162,$TESIN 
SREG1 , SBDADR- 
welts QSTKPT 
#340,P 

#404 SCDDAT 
#7600, aRLO 


SEXPECT ONL 
RELOCATE TO ADRS 760000 


4 a: ITERATIONS 
TEST NUMBER a" APT MAIL BOX 
<eey sl P. “A ADRS 12 
[SET MAINT SW 2 
DON'T LET INTR OCCUR. 
Y CHAR & VECTOR SCALE BITS 


SEQ 0063 
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7162 TEST THAT RESET WILL CLEAR TIMEOUT FLAG 


MOV #0, aDPC DISPLAY SHOULD TIMEOUT AT ADRS 760000 
CMP (SP) , (SP) sALLOW TIME 


sC 
MOV @SREG1,$BDDAT ;READ REG 12 
CMP $GDDAT,$BDDAT ;1S IT CORRECT? 
BEQ TST163 3gNEXT TEST IF OK 
ERROR 32 RESET FAILED TO CLR TIMEOUT 


LEAR AREER ARERR EEEE EERE ERE EER EEEREREE ERE 


i*TEST 163 TEST THAT LIGHT PEN FLAG WILL SET THEN CLEAR ON RESET = CONS 0 


SAREE REE REE ERE EEA RER EERE REREERREREKRERK 


1S1163: SCOPE 
MOV #40, $TIMES ::D0 40 ITERATIONS 
MOV #163, $TESIN *:SET TEST NUMBER IN APT MAIL BOX 
MOV #340.PSW ‘HIGHEST PRIORITY 
MOV #20000,a@STKPT | :SET MAINT Sw 2 
MOV #144000,$GDDAT EXPECT L.P. FLAG INITIALLY 
MOV #164360, BUFFER ENABLE L.P. FIG INTR 
MOV WBUFFER-@aDPC  —: START 
BIS 0000. @STKPT :SET MAINT Sw 3 
MOV #122000, BUFFER+2° wa :GRAPH X MODE 


INC DPC sRES 

MOV #1797 ,BUFFER+ 3X=1777 

INC aDPC 7 RESUME 

MOV CONS , SBDADR iSET ve REG ADRS 22 
BIS #40000, a@CONS 7SET L FLAG 


MOV @CONS , $BDDAT READ_ FLAGS REG 22 
CMP peta capepeene 233 17  paeas 


BEQ BR IF 
ERROR 34 LIGHT PEN FLAG FAILED TO SET = CONSOLE O 
1$: RESET ;CLR FLAGS 


MOV #100000, $GDDAT ZEXPECT ONLY INT ENA CONSOLE 0 

MOV aCONS , $BDDAT ;READ REG 22 

CMP SGDDAT , $BDDAT :DID REG °55 RESET? 

BEQ TST164 NEXT TEST IF SO 

ERROR 32 “RESET FAILED TO CLEAR FLAGS = CONSOLE 0 


DLR ERR EERE EERE EAR EERE EERE EEE EEE RRR EERE 


s*TEST 164 TEST THAT LIGHT PEN FLAG WILL SET THEN CLEAR ON RESET — CONS 1 


FARRER ERE EEE EERE KEE REE EKER REE ERE EERE EEE 


1$7164: SCOPE 
MOV #40, $TIMES £300, 40 ITERATIONS 
MOV #166, $TESIN T TEST NUMBER IN APT MAIL BOX 
MOV #340.PSW ‘HIGHEST PRIORTY 
‘SET MAINT SW 2 
MOV #101440, $GDDAT :EXPECT L. P. WE LAG INITIALLY 
MOV #164760.BUFFER ZENABLE L.P. FLG 


MOV WOU FE 3 T 
BIS #4000 ‘SET MAINT Sw 3 

MOV Preside BUFFERS2° :GRAPH X MODE 
INC aDPC RESUME 

MOV #1777, ,BUFFER+4 :X=1777 

INC aDPC * RESUME 

MOV CONS, $BDADR *SET UP REG ADRS 22 
BIS #400. aCONS “SET L.P. FLAG 


MOV @aCONS , SBDDAT ;READ IT BACK 


SEQ 0064 


5 
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CZVSAB.P11 29-MAY-79 10:10 7164 THAT LIGHT PEN FLAG WILL SET THEN CLEAR ON RESET = CONS 1 


023254 023737 001124 001126 tees tere ‘oR IF SO 
34 :LIGHT fate FLAG FAILED TO SET = CONSOLE 1 


: CLR FLAG 
100000 001124 #100000, a EXPECT ONLY INT EN FOR CONSOLE 0 
156550 001126 @CUNS , $8D DDAT sREAD REG 22 
001124 001126 $GDDAT, SBDDAT ; CORRECT? 
E TST165 ‘NEXT TEST IF SO 
023314 32 sRESET FAILED TO CLR FLAGS = CONSOLE 1 


FL RRR K 
T*TEST 165 TEST THAT LIGHT PEN FLAG = CONSOLE 0 WILL CAUSE AN INTERRUPT 
FREER E REE KEREEKEKEEEEREEKRKEEERKEEREREEREEKEEK H 
023316 00000 1$1165: SCOPE 
000100 001166 MOV #100, $TIMES DO 100 ITERATIONS 
001206 #165 .STESTN -SET TEST NUMBER IN APT MAIL BOX 
177776 0; :SET PRIORITY TO 7 
GET BASIC VS80 VECTOR ADRS 
+ CLEAR PSW BITS * B ** 
000004 54 (Ri) ‘SET UP INTR SERVICE ADRS 
000006 #340,6(R1) ‘SET UP PRIORITY TO 7 ON INT 
001124 #144000, $GDDAT :EXPECT INT EN, L.P. FLG, L.P. INT EN 
#1,R0 ‘RO WHEN NON-ZERO MEANS [NT EXPECTED 
156454 #20060,@STKPT :SET MAINT SW 2 
#164360,BUFFER :SET UP TO ENAB _L.P. INT & INTENSITY EN 
WBUFFER.@DPC START 
#40000,@STKPT :SET MAINT Sw 3 


031100 #122000 .BUFFER+2_ GRAPH X MODE 
aDPC PICK_UP GRAPH X INSTR - INT WILL OCCUR IN DATA MODE 
031102 #1777 ,BUFFER+4 ;X=1777 
aDPC ;RESUME FOR X 
001122 CONS , $BDADR 7SET UP REG ADRS 22 
156362 #40000, acONs SSET L.P. FLAG 
ALLOW INTR 
SET UP DELAY 
AWAY 


IL DONE 
DO WE EXPECT INT THIS PASS = NO IF ZERO 


7$ BR IF NOT 
156336 001126 ;READ L.P. STATUS 
50 LIGHT age CONSOLE 0 INTERRUPT FAILURE 
$ :GO LOOK FOR LOOP ON TEST Sw 
: (R6) +, (R6)+ SFIX STACK SINCE NO RTI 
156322 001126 @aCONS , $BDDAT :GET CONTENTS OF REG 22 
RO :D1D WE EXPECT AN L.P. INTERRUPT THIS PASS? 


4$ 
50 :L.P. FLAG INTERRUPTED ge NOT ENABLED 
BR 8$ :GO LOOK FOR LOOP ON TEST SW 
001124 001126 : > gs gmat SEE IF SS STATUS IS CORRECT AFTER INT 
50 FINCORRECT INTERRUPT STATUS 
: 8$ [GO LOOK FOR LOOP ON TEST SW 
000200 156246 : se00 AES :L. Pp. 50°48 SET IN REG O02 ALSO? 


IF SO 
023566 002032 001122 SREGO, $BDADR “SET UP _REG ADRS 02 
023574 012737 000200 001124 | #200, $GDDAT EXPECTED L.P. FLAG 
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7165 TEST THAT LIGHT PEN FLAG = CONSOLE 0 WILL CAUSE AN INTERRUPT 


$BDDAT ;SHOW IT WAS NOT SET 
ss rl. P. oF on i ae TO SET a A 02 


$ GOL OR LOOP ON TEST S 
6$: #100000 , $GDDAT iser- uP EXPECTED WITH L.P. FLAG INT DISABLED 
#164340,BUFFER ;SET UP INSTR WITH L.P. FLAG INT DISABLED 
RO SET TEST SWITCH TO NO INTERRUPT EXPECTED 
1$ ;GO REPEAT TEST WITH INT EN DISABLED 
7$: @aCONS , SBDDAT SREAD REG 22 
> char ‘eh iF ‘e ON START? 


34 ;START FAILED TO CLR L.P. FLAG 
8$: PC ,,RSTVEC SRESET L.P. INTERRUPT VECTOR WITH HALT 


MOR SAAR SARAAAAL££ 2 £2252 SERS ESR SESE RARER LARA RASA AR RAR RARER ASR DDS 


;*TEST 166 TEST THAT LIGHT PEN FLAG - CONSOLE 1 WILL CAUSE AN INTERRUPT 


MPRA AESSA£LLLA ££ SE SESSA SS SEES ERR ESA LER SESE RSA RARER SERRA RRR SSD DS 


781166: SCOPE 
MOV #100,$TIMES ::D0 100 ITERATIONS 
#166, $TESTN ‘:SET TEST NUMBER IN APT MAIL BOX 
‘SET PRIORITY TO 7 
[GET BASIC vs60 VECTOR ADRS 
: CLEAR PSW BITS * B es 
SET UP INTR’ SERVICE ADRS 
6,6(R1) ‘SET UP PRIORITY TO 7 ON IN NT 
#101440, $GDDAT ZEXPECT INT EN, L.P. FLG, INT EN 
#1,R “RO WHEN NON-ZERO MEANS int’ EXPECTED 
#20040 @STKPT :SET MAINT SW 2 
#164760,BUFFER :SET UP TO ENAB L.P. INT & INTENSITY EN 
FER. apPc START 


ABUF FE 
#40000,a@ [SET MAINT SW “" 
; GRAPH 


#122000, BUF FER+2" X MODE 
aDP PICK_UP GRAPH X INSTR - INT WILL OCCUR IN DATA MODE 
#1777 ,BUFFER+4 E177 7 
aDPC ;RESUME FOR X 
CONS , SBDADR :SET e te: ADRS 22 
oo L.P. FLAG 
W 


IL DONE 
-%- 9 oe! INT THIS PASS = NO IF ZERO 


6$ 

@CONS , SBDDAT “READ a: STATUS 

50 ;LIGHT PEN CONSOLE 1 gi FAILURE 
7$ 7GO LOOK FOR LOOP ON TEST 

(R6)+, (R6)+ FIX STACK SINCE NO RTI 

@CONS , SBDDAT GET L.P. STATUS 

re :D1D We “whsake AN L.P. INTERRUPT THIS PASS? 
50 Ce ly INTERRUPTED WHEN NOT ENABLED 
7$ :GO LOOK FOR LOOP ON TEST SW 

$GDDAT , SBDDAT sSEE IF STATUS IS CORRECT AFTER INT 

5$ ;BR IF SO 

3 : INCORRECT L.P. STATUS 


$ :GO LOOK FOR LOOP ON TEST Sw 
#101000,$GDDAT ;SET UP TEST WITH L.P. FLAG INT DISABLED 
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TEST THAT LIGHT PEN FLAG = CONSOLE 1 WILL CAUSE AN INTERRUPT SEQ 0067 


#164740,BUFFER ;SET UP INSTR WITH L.P. FLAG DISABLED 
CLR RO: SET TEST SWITCH TO NO INTERRUPT EXPECTED 
BR 1$ ;GO REPEAT TEST WITH INT EN DISABLED 

6$: MOV @CONS , SBDDAT ;READ REG 22 
CMP eat ante 3L.P. FLG CLR ON START? 


BR IF SO 
7 START os TO CLR L.P. 
























34 FLAG 

7$: JSR PC ,RSTVEC SRESET L.P. INTERRUPT VECTOR WITH HALT 
z2 RERRRER AEE E EEE RE ERE E REE REEREER ERE REEREREREEREREEARER EERE 
t*TEST 167 TEST THAT*WORD 0,1 & 2 {ENDICATORS WILL SET 
See em ee at re ree Se \pleialalieialielaiahelalcheleleieiaiehsicleieiaielel 
1ST167: SCOPE 

MOV #167, $TESTN ::SET TEST NUMBER IN APT MAIL BOX 

MOV #BI1T13,aSTKPT >SET MAINT SWITCH #2 

MOV #100, $GDDAT ZEXPECT WORD 0 INDICATION INITIALLY 

MOV #110000 BUFFER SET UP LONG VECTOR INSTR 

CLR BUFFER+2 °. =CLR X,Y 


CLR BUFFER+4 ° 
MOV ite: ator START 


BR G0 ALLOW HE ay FOR INSTR NPR 
1$: INC aDPC PICK UP DATA WORD 
2$: MOV STKPT , $8DADR 7SET UP REG ADRS 32 

MOV @STKPT,SBDDAT ;READ REG 


32 
BIC #177077,$BDDAT SAVE ONLY WORD INDICATORS 
CMP SDDAT  SBDDAT is 1 CORRECT? 


BEQ 

ERROR 41 = WORD INDICATOR go ge 
3$: ASL $SGDDAT ADVANCE TO NEXT WORD 

CMP #1000, $GDDAT cHAVE ALL BEEN TESTED? 

BNE 1$ ;BR IF NOT 
ZDICR OIRO IOI OIOIOIOIOIOIOIOIUIOIIOIOIOIOIOIOIOI ROI OTTO TT TOTTI AASSIIAISSIASSISISISI SASSI SISA 
*TEST 170 TEST FOR HALT AT END OF DIAGNOSTIC (SW12 SET) 


SUID SIIOICIOIOIOIOIOIOIOISIDIIOI IOI IOI IOI IOI IIIT TOT TOR TATA IAS ASI SSS SAS AN 
TST170: SCOPE 

MOV #170, $TESTN erSet Test Pall IN APT MAIL BOX 
BIT #B1T12,aSWR 71S Swi2 SET 

$EOP :BR IF NOT 


HALT “COMPLETED PASS = SwW12 SAYS HALT 






. 
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CZ7VSAB.P11 29=MAY-79 10:10 END OF PASS ROUTINE SEQ 0068 
2403 .SBTTL END OF PASS ROUTINE 
3} LL AAAAAAAEAAAAAAAAAAR AREA AAA EEARKRAERRARAERAEREREARAERERERAAEREE ND 
(1) ** INCREMENT THE PASS NUMBER ($PASS) 
(13 :* INDICATE END-OF=PROGRAM AFTER 1 PASSES THRU THE PROGRAM 
(1) ‘TYPE "END PASS #XXXXX'' (WHERE XXXXX IS A DECIMAL NUMBER) 
(1) teIF THERES A MONI TOR GO TO IT 
a) ‘s]F THERE ISN'T JUMP TO RESTRT 
( 
(1) 024332 $EOP: 
(1) 024332 SCOPE 
(7) 024334 005037 001102 CLR STSTNM 73zZERO THE TEST NUMBER 
(1) 024340 005037 001166 CLR $TIMES : + ZERO THE NUMBER OF ITERATIONS 
(1) 024344 005237 001210 INC $PASS INCREMENT THE PASS NUMBER 
(1) 024350 042737 100000 901210 BIC #100000,$PASS ::DON'T ALLOW A NEG. NUMBER 
(1) 024356 005327 DEC (PC) + LOOP? 
(1) 024360 000001 $EOPCT: .WORD 1 
(1) 024362 003022 BGT $DOAGN r YES 
(1) 012737 MOV (PC)+,a(PC)+ | ::RESTORE COUNTER 
(1) 000001 SENDCT: .WORD 1 
(1) 024370 024360 SEOPCT 
(1) 024372 104401 024437 TYPE , SENDMG TYPE ‘END PASS #"' 
(2) 024376 013746 001210 MOV $PASS ,-(SP) : SAVE $PASS FOR TYPEOU 
(2) 024402 104405 TYPDS *GO TYPE==DECIMAL ASCH WITH SIGN 
(1) 024404 104401 024434 TYPE »SENULL + TYPE A NULL CHARACTER 
(1) 024410 013700 000042 $GET42: MOV a4#42,R0 *:GET MONITOR ADDRESS 
(1) 026414 001405 BEQ SDOAGN *SBRANCH IF NO MONITOR 
(1) 024416 000005 RESET +: CLEAR THE WORLD 
(1) 024420 004710 $ENDAD: JSR PC, (RO) +:G0 TO MONITOR 
{1) 024422 000240 NOP 7, SAVE ROOM 
(1) 024424 000240 NOP : FOR 
(1) 024426 000240 NOP StACT11 
(1) 024430 $DOAGN: 
(1) 026430 000137 JMP a(PC)+ : : RETURN 
(1) 024432 002472 $RTNAD: .WORD RESTRT 
(1) 024434 377 377 000 $ENULL: .BYTE -1,7-1,0 s NULL CHARACTER STRING 
oy 024437 015 042412 042116 $ENDMG: .ASCIZ <15><i2>/END PASS #/ 


a) 
R 
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END OF PASS ROUTINE 


SL AAAAAAAAAAAAAAAAAAARARERAEKEAARARAERAAARAERAARAARERARARRRAAER ARE 


THIS CODE RESETS ALL VS60 VECTORS WITH HALTS 


Wee eARRRRASARASRASRRRASARAR RRR ERRASRRR RRA RARRRRRRRARAR RRR RRR RSS S DS DD: 


RSTVEC: MOV #340 ,PSW RESET PRIORITY TO HIGHEST LEVEL 


MOV #4 RI ;SET UP VECTOR LOCATION COUNT 

MOV $VECT1,RO GET 1ST VS60 VECTOR ADRS 

BIC #160000 ,RO ; CLEAR PSW BITS ae 8 ** 
1$: MOV RO, (RO) ;SET UP ADRS TO HALT 

ADD #2,(RO)+ POINT IT TO HALT 

CLR (RO) + ;SET UP_HALT 

DEC R1 ; COUNT THIS VECTOR RESTORE 

BNE 1$ [BR IF MORE TO RESTORE 

RTS PC RETURN IF ALL DONE 


Lay CPP eSRRE RESALES ESSSE SSSR RRS RR RRR RSS ASR RRR ASRS ASA RRR ARERR RRS S DSSS 


sTHIS IS A GENERAL PURPOSE DELAY ROUTINE (REG CNT OF 20) 


PUTT TTTT TTT TTT T TTT TTT TLE TTL LLL LLL 


DLAY: MOV DELAY,RO ;GET COUNT 

1$: DEC RO ; COUNT AWAY 
BNE 1$ ;BR TILL DONE 
RTS PC sEXIT 


SEQ 0069 
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2429 
(1) 


~ 
Nm 
~ 


Pe RRR RRR RAR RAR FRA AAA AAA AA ABABA ABABA ABABA ABA AAO AAA A AAO O 
ak a a a a a a SS a sh a a os os ss ot ot ot oh ot I SS 
ee ee ee ee ett itt te 


024526 


024744 
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032777 
001114 


000416 
013746 


011637 
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040000 


090004 
024564 
177060 
000004 


000004 


000400 
154330 
001103 
001115 
001000 
001110 


001103 
001166 


004000 
001210 


001106 


154404 


000004 


154336 
001102 


001103 
154300 
001106 


154246 


001104 


001104 
001166 


001206 
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-SBTTL SCOPE HANDLER ROUTINE 


2 RR EERE 

SS THIS ROUTINE CONTROLS THE LOP°ING OF SUBTESTS. IT WILL INCREMENT 
;*AND LOAD THE TEST NUMBER(STS NM) INTO THE DISPLAY REG. (DISPLAY<7:0>) 
+ * AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15:08> 

;*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 


+ *SW14=1 LOOP ON TEST 
:*SW11=1 INHIBIT ITERATIONS 
7*SWw09=1 LOOP ON ERROR 
+ *SWOB=1 LOOP ON TEST IN SWR<7:0> 
> *CALL 
:* SCOPE ::SCOPE=I10T 
$SCOPE: 
1$: BIT #B1T14,aSwWR ::LOOP ON PRESENT TEST? 
BNE $OVER “YES IF Sw14=1 
:MAAHASTART OF CODE FOR THE XOR Seige 
$XTSTR: BR 6$ :1F RUNNING ON THE ‘‘XOR'' TESTER CHANGE 
:THIS INSTRUCTION TO A ‘NOP’' (NOP=240) 
MOV @AERRVEC ,-(SP) :iSAVE THE CONTENTS OF THE ERROR VECTOR 
MOV #5$, a#ERRVEC :SET FOR TIMEOUT 
TST a4#177060 TIME OUT ON XOR? 
MOV (SP) +, A#ERRVEC :URESTORE THE ERROR VECTOR 
BR $SVLAD 7GO TO THE NEXT TEST 
S$: CMP (SP)+, (SP) + =CLEAR THE STACK AFTER A TIME OUT 
MOV (SP) +, A#ERRVEC : URESTORE THE ERROR VECTOR 
BR 7$ LOOP ON THE PRESENT TEST 
6$::AAHAAEND OF CODE FOR THE XOR TESTERAAAHA 
BIT #B1T08,aSWR 7;LOOP ON SPEC. TEST? 
BEQ 2$ 7;BR IF NO 
CMPB aSWR,$TSTNM 7:0N THE RIGHT TEST? SWR<7:0> 
BEQ SOVER 7:BR IF YES 
2$: TSTB $SERFLG ::HAS AN ERROR OCCURRED? 
BEQ 3$ 7;BR IF NO 
CMPB SERMAX,SERFLG ;;MAX. ERRORS FOR THIS TEST OCCURRED? 
BHI 3 :;BR IF NO 
BIT #B1T09,aSWR 7;LOOP ON ERROR? 
BEQ 4$ ::BR IF NO 
7$: MOV SLPERR. SLPADR ::SET LOOP ADDRESS TO LAST SCOPE 
V 
4$: CLRB SERFLG 7:ZERO THE ERROR FLAG 
CLR $TIMES *:CLEAR THE NUMBER OF ITERATIONS TO MAKE 
BR 1$ >: ESCAPE TO THE NEXT TEST 
3$: BIT #B1T11,aSWR : 7 INHIBIT ITERATIONS? 
BNE 1$ 7;BR IF YES 
TST $PASS ic IF FIRST PASS OF PROGRAM 
BEQ 1$ INHIBIT ITERATIONS 
INC $ICNT +: INCREMENT ITERATION COUNT 
CMP $TIMES,SICNT ::CHECK THE NUMBER OF ITERATIONS MADE 
BGE ~ VER : /BR IF MORE ITERATION REQUIRED 
1$: MOV .$ICN 7 ;REINITIALIZE THE ITERATION COUNTER 
MOV SHuCNT STIMES 7SET NUMBER OF ITERATIONS TO DO 
$SVLAD: INCB $TSTNM «COUNT TEST R 


S 
MOVB STSTNM,STESTIN ;3;SET TEST NUMBER IN APT MAILBOX 
MOV (SP), $LPADR ;;SAVE SCOPE LOOP ADDRESS 
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(1) 024750 011637 001110 MOV (SP) ,SLPERR ::SAVE ERROR LOOP ADDRESS 
(1) 024754 005037 001170 CLR $SESCAPE SCLEAR THE ESCAPE FROM ERROR ADDRESS 
(1) 024760 112737 000001 001115 MOVB #1, SERMAX TONLY ALLOW ONE(1) ERROR ON NEXT TEST 
(1) 024766 013777 001102 154146 S$OVER: MOV $TSTNM, aD1SPLAY : DISPLAY TEST NUMBER 
(1) 024774 013716 001106 Mov SLPADR, (SP) FUDGE RETURN ADDRESS 
(1) 025000 000002 FIXES PS 
(1) 025002 003720 SMX CNT: 3000. MAX. NUMBER OF ITERATIONS 
2430 "SBITL. APT COMMUNICATIONS ROUTINE 
(2) TAR RRASZASBARAALRARSALASLELASLASSASAASSASASARSE RE RRR RRR RR SRR RR RR RRA RSA SRS SD 
(1) 025004 112737 Q00001 025250 $ATY1: MOVB #1,$FFLG ;TO REPORT FATAL ERROR 
(1) 025012 112737 000001 025246 $ATY3: MOVE #1,$MFLG :T0 TYPE A MESSAGE 
(1) 025020 000403 BR SATYC. 
(1) 025022 112737 000001 025250 $ATY4: MOVB .,#1,$FFL@ - — ;;TO ONLY REPCRT FATAL ERROR 
(1) 025030 SAIYE( 3a 
(3) 025030 010046 MOV :RO,-(SP) 2 2PUSH RO ON STACK 
(3) 025032 010146 MOV R1,=(SP) ;:PUSH R1_ON STACK 
(1) 025034 105737 025246 TSTB. 4 SMFLG ;;SHOULD TYPE A MESSAGE? 
(1) 025040 001450 BEQ $ tr1F NOT: BR 
(1) 025042 122737 000001 001222 CMPB —s HAPTENV, SENV : FOPERATING UNDER APT? 
(1) 025050 001031 BNE 3$ ‘ SS1F NOT: BR 
(1) 025052 132737 000100 001223 BITB: | #APTSPOOL,SENVM }:SHOULD SPOOL MESSAGES? 
(1) 025060 001425 BEQ 3$ SIF NOT: BR 
(1) 025062 017600 000004. MOV a4 (SP) ,RO 2IGET MESSAGE ADDR. 
(1) 025066 062766 000002 000004 ADD #2,4(SP) ;BUMP RETURN ADDR. 
(1) 025074 005737 001202 - 1$: TST $MSGTYPE :SEE IF’ "DONE W/ LAST XMISSION? 
(1) 025100 001375 BNE 1$ SIF NOT: WAIT 
(1) 025102 010037 001216 MOV ° RO, $MSGAD “IPWT ADDR IN MAILBOX 
(1) 025106 105720 2$: TSTB = (RO) + : EERIND END OF MESSAGE 
(1) 025110 001376 | BNE 2$ M 
(1) 025112 163700 001216 | SUB $MSGAD.RO + ;;SUB START OF MESSAGE 
(1) 025116 006200 er ASR RO *  S3GET MESSAGE LNGTH IN WORDS 
(1) 025120 010037 001220 MOV RO, $MSGLGT >:PUT LENGTH IN MAILBOX 
(1) 025124 012737 00000% 001202 MOV #4. $MSGTYPE >: TELL APT TO TAKE MSG. 
<1) 025132 000413 BR 5$ 
(1) 025134 017637 000004 025160 3$: MOV a4 (SP) ,4$ ;;PUT MSG ADDR IN JSR LINKAGE 
(1) 025142 062766 000002 000004 ADD #2,4(SP) RETURN ADDRESS 
(3) 025150 013746 177776 |... -.! MOV 177776, ~(SP) ; ;PUSH 156. ON STACK 
“C) 025154 004737 026600 JSR PC, $TYPE [CALL TYPE MACRO 
(1) 025160. 000000 , ». ux - 1 4S .WORD 0 
(1) 025162 ts 5$: 
(1) 025162 105737 025250 -: 10$: STB  $FFLG ;SHOULD REPORT FATAL ERROR? 
(1) 025166 001416 , BEQ 12$ :IF NOT: BR 
(1) 025170 005737 “001222 TST SENV : [RUNNING UNDER APT? 
(1) 025174 001413 BEQ 12$ :IF NOT: BR 
(1) 025176 005737 001202 11$: TST SMSGTYPE =F INI SHED LAST ME SSAGE ? 
(1) 025202 001375 BNE 1$ “SIF NOT: WAIT 
(1) 025204 017637 000004 001204 MOV a4tsP), SFATAL 3 ;GET ERROR # 
(1) 025212 062766 000002 000004 ADD #2,4(SP) ;BUMP RETURN ADDR. 
(1) 025220 005237 001202 INC $MSGT YPE STELL APT TO TAKE ERROR 
(1) 025224 105037 025250 12$: CLRB  $FFLG [CLEAR FATAL FLAG 
(1) 025230 105037 025247 CLRB = $LFLG SSCLEAR LOG FLAG 
(1) 025234 105037 025246 CLRB = $MFLG ‘i CLEAR MESSAGE FLAG 
(3) 025240 012601 MOV (SP)+,R1 POP STACK INTO R1 
(3) 025262 012600 ; MOV (SP)+,RO :POP STACK INTO RO 
(1) 025264 000207 RTS PC «RETURN 
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CZ7VSAB.P11 29-MAY-79 10:10 T COMMUNICATIONS ROUTINE SEQ 0072 

(1) 025246 000 SMFLG: .BYTE 0 + sMESSG. FLAG 
(1) 025267 000 $LFLG: .BYTE OQ 77L0G FLAG 
(1) 025250 000 SFFLG: .BYTE 0 +S FATAL FLAG 
(1) 5252 EVEN 
(1) APTSIZE= 200 
(1) APTENV=001 
(1) 000100 APTSPOOL=100 
(1) 000040 APTCSUP=040 

2431 -SBTTL ERROR HANDLER ROUTINE 
(1) 
(2) LTA RARER EERE EERRERAEEREERE RAKE ERER EEE ES 
(1) s*THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
(1) ;*SAVE THE ERROR ITEM NUMBER AND [HE ADDRESS OF THE ERROR CALL 
(1) :*AND GO TO $SERRTYP ON ERROR 
(1) + ® THE SWITCH OPTIONS PROVIDED BY TI!IS ROUTINE ARE: 
(1) *SW15= HALT ON ERROR 
(1) 7*SW13=7 INHIBIT ERROR TYPEOUTS 
(1) 7*SW10=1 BELL ON ERROR 
(1) 7 *SwO09=1 LOOP ON ERROR 
(1) > * CALL 
ty 3* ERROR N 7: ERROR=EMT AND N=ERROR ITEM NUMBER 
(1) 
(1) 025252 $ERROR: 
(2) 025252 113737 001102 002024 MOVB $TSTNM, TSTNUM 
(1) 025260 105237 0u1103 7$: INCB SERFLG 2eSET THE ERROR FLAG 
(1) 025264 001775 BEQ if ON'T LET THE FLAG GO TO ZERO 
(1) 025266 013777 001102 153646 MOV TSTNM, DISPLAY DISPLAY TEST NUMBER AND ERROR FLAG 
(1) 025274 032777 002000 153636 BIT #B1T10. aSWR ;BELL ON ERROR? 
(1) 025302 001402 BEQ 1$ :zNO - SKIP 
(1) 025304 104401 001172 TYPE , SBELL 2 ¢RING BELL 
(1) 025310 005237 001112 1$ INC SERTTL OUNT THE NUMBER OF ERRORS 
(1) 025314 011637 001116 MOV (SP) ,SERRPC T:GET ADDRESS OF ERROR INSTRUCTION 
(1) 025320 162737 000002 001116 SUB #2, $ERRPC 
(1) 025326 117737 153564 001114 MOVB @$SERRPC,$ITEMB ;;STRIP AND SAVE THE ERROR ITEM CODE 
(1) 5334 032777 020000 153576 BIT #B1T13,aSWR 22 SKIP TYPEOUT IF SET 
(1) 025342 001004 BNE 20$ :SKIP TYPEOUTS 
(1) 025344 004737 025454 JSR PC, SERRTYP +:G0 TO USER ERROR ROUTINE 
(1). 025350 104401 001177 TYPE CRLF 
(1) 025354 20$: 
(1) 025354 122737 000001 001222 CMPB HAPTENV, SENV 7 RUNNING IN APT MODE 
(1) 025362 001007 BNE 7zNO,SKIP APT ERROR REPORT 
(1) 25364 113737 001114 025376 MOVB $ITEMB,21$ 7zSET ITEM NUMBER AS ERROR NUMBER 
(1) 025372 006737 025022 JSR PC,SATY4 ; REPORT FATAL ERROR TO APT 
(1) 025376 000 21$: -BYTE 0O 
(1) 025377 000 -BYTE Q 
(1) 025400 000777 22$: BR 228 7 3APT ERROR LOOP 
(1) 025402 005777 153532 es: TST aSwWR 7 ;HALT ON ERROR 
(1) 025406 1 BPL 3$ :i SKIP IF CONTINUE 
(1). 025410 HALT ;;HALT ON ERROR! 
(1) 025412 032777 001000 153520 38: BIT #B1T09,aSWR : sLOOP ON ERROR SWITCH SET? 
(1) 025420 001402 ; BEQ 4$ IF NO 
(1) 025422 013716 001110 MOV $LPERR, (SP) +: FUDGE RETURN FOR LOOPING 
(1) 025426 005737 001170 4$: TST $SESCAPE :: CHECK FOR AN ESCAPE ADDRESS 
(1) 025432 001402 BEQ 5$ 77;BR IF NONE 
the stores 013716 001170 ss MOV $SESCAPE, (SP) ;7FUDGE RETURN ADDRESS FOR ESCAPE 
( ‘ 
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CZ7VSAB.P11 29—MAY-79 10:1C ERROR HANDLER ROUTINE SEQ 0073 
(1) 025440 022737 024420 000042 CMP #SENDAD , d442 s;ACT=11 AUTO=ACCEPT? 
(1) 025446 001001 BNE 6$ BRANCH IF NO 
‘1) 025450 000000 HALT YES 
(1) 025452 6$: 
(1) 025452 000002 RT] 7 ;RETURN 
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CZVSA-B _VvS60 edad He TEST PART 1 
CZ7VSAB.P11 29=MA '=79 10:10 











.SBTTL ERROR MESSAGE TYPEOUT ROUTINE 


(2) MRA ARADASASRESAAALSSLSL MeSRELERSLAEER RAS ERR ARERR RRR SRR ARRAS RRS D SS | 


(1) Z*THIS ROUTINE USES THE “‘ITEM CONTROL BYTE'’ ($iTEMB) TO DETERMINE WHICH 
(1) ;*ERROR IS TO BE REPORTED. IT THEN OBTAINS, FROM THE ‘ERROR TABLE’ ($ERRTB), 
) :*AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR. 

( 

(1) 025454 SERRTYP: - 

(1) 025454 104401 001177 TYPE —_, $CRLF : CARRIAGE RETURN'' & “LINE FEED" 
(1) 025460 010046 MoV. —-RO, = (SP) ZISAVE R 

(1) 025462 005000 CLR RO 7zPICKUP THE ITEM INDEX 

(1) 025464 153700 001114 BISB  a#$ITEMB,RO 

(1) 025470 001004 BNE 1$ ::1F ITEM NUMBER IS ZERO, JUST 

(1) ZITYPE THE PC OF THE ERROR 

(2) 025472 013746 001116 Mov —« SERRPC,=(SP) 3: SAVE _SERRPC FOR TYPEOUT 

(2) : ERROR ADDRESS 

(2) 025476 104402 TYPOC GO TYPE=-OCTAL ASCII(ALL DIGITS) 
(1) 025500 000426 BR 6$ SIGET OUT 

(1) 025502 005300 18: DEC — RO SIADJUST THE INDEX SO THAT IT WILL 
(1) 025504 006300 ASL RO ei WORK FOR THE ERROR TABLE 
(1) 006300 ASL —RO 

(1) 025510 006300 ASL —RO 

(1) 025512 062700 001270 ADD —-#SERRTB,RO ::FORM TABLE POINTER 

(1) 025516 012037 025526 MOV (RO) +,2$ ;:PICKUP "ERROR MESSAGE"' POINTER 
(1) 025522 001404 BEQ ss 3 :SKIP TYPEOUT IF NO POINTER 

(1) 025524 104401 TYPE TETYPE THE "ERROR MESSAGE’ 

(1) 025526 000000 ; & 28: WORD 0 ERROR MESSAGE” POINTER, GOES_HERE 
(1) 025530 104401 001177 TYPE —_, SCRLF TIUCARRIAGE RETURN'’ & ‘LINE F 

(1) 025534 012037 025544 : 3$: MOV (RO)+,4$ 3:PICKUP ‘DATA HEADER" POINTERS 

(1) 025540 001404 BEQ0—s«OSS :ISKIP TYPEOUT IF 0 

(1) 025542 104401 TYPE iTYPE THE ‘DATA HEADER" 

(1) 025544 000000 4$: WORD 0 <°"DATA HEADER" POINTER GOES HERE 
(1) 025546 104401 001177 TYPE —_, SCRLF ZICARRIAGE RETURN'' & ‘LINE FEED" 
(1) 025552 011000 5$: MOV (RO) ,RO 3zPICKUP ‘DATA 7 pl PUSMEH 

(1) 025554 001004 BNE 7$ iGO TYPE THE DAT 

(1) 025556 012600 6$: MOV (SP)+,RO ZIRESTORE RO 

(1) 025560 104401 001177 TYPE —_, $CRLF TI 'CARRIAGE RETURN'' & "LINE FEED" 
(1) 025564 000207 RTS. AC : ERETURN 

(1) 025566 7$: 

(2) 025566 013046 Mov @(RO)+,-(SP) — ;; SAVE _@(RO)+ FOR TYPEOUT 

(2) 025570 104402 TYPOC :1GQ TYPE--OCTAL ASCII(ALL DIGITS) 
(1) 025572 005710 TST (RO) iTS THERE ANOTHER NUMBER 

(1) 025574 001770 BEQ ~—s«O$ IF NO 

(1) 025576 104401 025604 TYPE —_,8$ : TYPE TWO(2) SPACES 

(1) 025602 000771 BR 7$ = LOOP 

(1) 025604 020040 000 8S: ASCIZ / / ::TWO(2) SPACES 

(1) 025610 -EVEN 
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CZ7VSAB.P11 29-MAY-79 10:10 
2436 
2437 
(1) 
(2) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) , 
(1) 7 
(1) 
(1) 
(1) 025610 017646 000000 
(1) 025614 116637 000001 026033 
(1) 025622 112637 026035 
(1) 925626 062716 000002 
(1) 025632 
(1) 025634 112737 000001 026033 
(1) 025642 112737 000006 026035 
(1) 025650 112737 000005 026032 
(1) 025656 010346 
(1) 025660 010446 
(1) 025662 010546 
(1) 113704 026035 
(1) 025670 005404 
(1) 025672 062704 00 
(1) 025676 110437 026034 
(1) 025702 113704 026033 
(1) 025706 016605 000 
(1) 025712 00500 
(1) 025714 006105 
(1) 025716 0004 
(1) 025720 006105 
(1) 025722 006105 
(1) 025724 
(1) 025726 010503 
(1) 025730 006103 
(1) 025732 105337 026034 
(1) 025736 100016 
(1) 025740 042703 177770 
(1) 025744 001002 
(1) 025746 005704 
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ERROR MESSAGE TYPEOUT ROUTINE 


.SBTTL BINARY TO OCTAL (ASCII) AND TYPE 


ZEISS ISISISIOISISISISISISISISIDISIIIDIIEIOIOIOIDIOIOIIE IIIS ISI IOI TSE TOTS T TT TOTO 
>*THIS ROUTINE iS USED TO —— A 16-BIT BINARY NUMBER TO A 6-DIGIT 
[*OCTAL (ASCII) NUMBER AND TYPE IT. 

:*$TYPOS=--ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 


2*CALL: 

ie MOV NUM, = (SP) ; ;NUMBER TO BE TYPED 

:* TYPOS 3:CALL_FOR TYPEOUT 

:* -BYTE N ;:N=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 
el eOYTE M :7M=1 OR O 

at 331=TYPE LEADING ZEROS 

“od ;30=SUPPRESS LEADING ZEROS 


** 
7 *$TYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
*$TYPOS UR $TYPOC 

*CALL: 


ie MOV NUM, = (SP) NUMBER TO BE TYPED 
:* TYPON *=CALL FOR TYPEOUT 

* S$TYPOC---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 
=*CALL: 

te MOV NUM, - (SP) ::NUMBER TO BE TYPED 
te TYPOC *=CALL FOR TYPEOUT 
$TYPOS: MOV a(SP),-(SP) ::PICKUP THE MODE 


MOVB 1(SP) ,SOFILL ;zLOAD ZERO FILL SWITCH 
MOvB (SP)+,$OMODE+1 ;;NUMBER OF DIGITS TO TYPE 


ADD #2, (SP) ;zADJUST RETURN ADDRESS 
BR $TYPON 
$TYPOC: MOVB #7 , SOF ILL 33SET THE ZERO FILL SWITCH 
MOVB #6, S$OMODE +1 3zSET FOR S1X(6) DIGITS 
$TYPON: MOVB #5 ,$0CNT 33SET THE ITERATION COUNT 
MOV R3,-(SP) ;SAVE R3 
MOV na steps 7 SAVE R4 


: 5 
3;GET THE NUMBER OF DIGITS TO TYPE 


NEG 
ADD #6.RG eh ries IT FOR MAX. ALLOWED 
MOVB R4, $OMODE 3-SAVE_ IT FOR USE 
MOVB SOF ILL .R4 aseer THE ZERO FILL SWITCH 
MOV 12(SP) ,R5 PICKUP THE INPUT NUMBER 
CLR R3 S:CLEAR THE OUTPUT WORD 
1$: ROL R5 ;ZROTATE MSB INTO *'C’’ 
BR 3$ 3:GO DO MSB 
23: ROL R5 :2FORM THIS DIGIT 
ROL R5 
ROL R5 : 
MOV R5,R3 
3$: ROL R3 >GET LSB OF THIS DIGIT 
DECB SOMODE : TYPE THIS DIGIT? 
BPL 7$ IF NO 
BIC #177770,R3 :2GET Rip OF JUNK 
BNE 4$ TEST FOR 0 
TST R4 SUPPRESS THIS 0? 


SEQ 0075 
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025750 5$ :sBR IF YES 
4$: ;;DON'T SUPPRESS Mert O'S 
: sMAKE THIS DIGIT ASC 
5$: * ae MAKE ASCII IF NOT ALREADY 
::SAVE FOR TYPING 
+260 ie x we DIGIT 


OUNT BY 
;BR IF MORE TO DO 
SBR IF DONE 
Oy LAST DIGIT iv T A BLANK 
O DO THE LAST DIGIT 
TORE R5 


026032 7$: 


;;RLSTORE R3 
000002 2(SP) 4 (SP) 33SET THE STACK FOR RETURNING 


(SP) +, (SP) 
7 RETURN 
;, STORAGE FOR ASCII DIGIT 
: TERMINATOR FOR TYPE ROUTINE 
sOCTAL DIGIT ten 
000 :3 ZERO FILL SWIT 
026034 DE: .WORD 0 ;NUMBER OF DIGITS TO TYPE 
.SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 


MPAQeGSS£A£2¢2 22222 SESE SSESLSLES SESS SES ESE SAA SES SARA SAAS ASA SALES SS 
*STHIS ROUTINE IS USED TO CHANGE A 16-B8IT BINARY NUMBER TO A 5-DIGIT 

+ *SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE 
> *NUMBER IS PCSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 
+ *BEF ORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 
a WITH SPACES. 

;*CALL: 

7” MOV NUM ,-(SP) 7zPUT THE BINARY NUMBER ON THE STACK 

3* ::GO TO THE ROUTINE 


$TYPDS: 
010046 MO RO,-(SP) :zPUSH RO ON STACK 
R1,-(SP) , 
R2,-(SP) 
R3,-(SP) 


R5,~(SP) 
020200 #20200.-(SP) 
000020 + tga 


Sa ss SS Ss 2 2 a fU SB WS St SS 2 3 3 3 BS SS St SS 
ww ew Vee vevVevevvv®@vyevvvuvvVvvvevyevevevyvvyvevevevyevyevyevyewew 


( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
¢ 
( 
4 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 


oy 
000055 000001 ; og, 1(SP) 


026252 ; #S$DBLK,R3 t:SETUP THE OUTPUT POINTER 
000040 #’ ,(R3)¢4 *:SET THE FIRST CHARACTER TO A BLANK 
R? : : NUMBER 


026242 ' $DTAL (RO) ,R1 ; ONST 
; R1,R5 ;iFORM THIS BCD ‘DIGIT 
“BR IF DONE 


I 
>: INCREASE THE BCD DIGIT BY 1 


: 7;ADD BACK THE CONSTANT 
026124 ; R2 3:CHECK IF BCD DIGIT=0 


aa RRA RRA RAARARAAN 
ek a ad ad od od 
Nee Ne Ne Ne ee ee ee ee Ne ee ae te ee 
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CZ2VSAB.P11 9-MAY-79 
(1) 026126 1002 
(1) 026130 105716 
(1) 026132 100407 
(1) 026134 106316 
(1) 026136 103003 
(1) 026140 $663 000001 
(1) 026146 052702 000060 
(1) 026152 052702 
(1) 026156 110223 
(1) 0261 005720 
(1) 026162 020027 000010 
(1) 0261 002746 
(1) 026170 3002 
(1) 026172 010502 
(1) 026174 764 
(1) 026176 105726 
(1) 026200 
(1) 026202 6663 177777 
(1) 026210 105013 
(3) 026212 012605 
(3) 026214 012603 
(3) 026216 012602 
(3) 026220 012601 
(3) 026222 012600 
(1) 026224 104401 026252 
(1) 026230 000002 
(1) 026236 (C12616 
(1) 026240 
(1) 026242 023420 
(1) 026244 001750 
(1) 026246 000144 
(1) 026250 000012 
(1) 026252 000004 


177777 


177776 


000004 


! 


MACY11 30G6(1063) 


5$: 


7$: 


8$: 


9$: 


$DTBL: 


$DBLK: 


1 e 
-BLKW 


M 6 
17-SEP-79 08:43 PAGE 14-2 
CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 


5$ 

(SP) 

7$ 

(SP) 

6$ 

1(SP) ,-1(R3) 
#'0,R2 

#* ,R2 
R2,(R3)+ 
(RO) + 
RO,410 

2$ 

8$ 

R5,R2 

6$ 

(SP) + 

9$ 

-1(SP) ,=-2(R3) 
(R3) 
(SP)+,R5 
(SP)+,R3 
(SP)+,R2 
(SP)+,R1 
(SP)+,RO 
,SDBLK 
2(SP),4(SP) 
(SP) +, (SP) 


4 


szFALL THROUGH IF 0 
:zSTILL DOING LEADING 0'S? 
+ BR IF YES 


:BR iF 
i VES<SET THE SIGN 
3=MAKE THE BCD DIGIT ASCII 
7iMAKE_ IT A SPACE IF NOT ALREADY A DIG 
33PUT_ THIS CHARACTER IN THE OUTPUT BUF 
3;JUST INCREMENT ING 
3:CHECK THE TABLE INDEX 
:-GO DO a Pas DIGIT 


IT 
FER 


E LSD 
; CHANGE TO ASCII 
:2WAS 1 THE LSD THE FIRST NON-ZERO? 


IF NO 
SIYES=-SET THE SIGN FOR TYPING 
73SET THE TERMINATOR 
2:=POP STACK INTO RS 
:;POP STACK INTO R3 
3zPOP STACK INTO R2 
3zPOP STACK INTO R1 
;zPOP STACK INTO RO 
73NOW TYPE THE NUMBER 
;ZADJUST THE STACK 


;:RETURN TO USER 


SEQ 0077 


CZVSA-B_ _VS60 att Ee Fa 


CZVSAB.P11 


(2) 


Fae ate te Ee ae i ee, i, i ee a et ee, ee a ae a i 
Wa 2 2 2 2 2a Ss SS 2 Ss Ss UI WW WWW 2 SS 


ee ee a ae ee 


026262 


29=MAY-79 1 


012737 
012737 


5 
026502 


10 


026426 
000340 


152622 
026432 
02633» 


026426 


026432 
152554 


026262 
000340 


042522 


PART 1 


000024 


000026 


000024 


000024 


000024 
000026 


052123 


MACY11 30G(1063) 


N 6 
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CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 


.SBTTL POWER DOWN AND UP ROUTINES 


LEAR REE EEK EERE EERE ERE RRR RARER RRR 


;POWER DOWN ROUTINE 


$PWRDN: MOV M$ILLUP,@A#PWRVEC ;;SET FOR FAST UP 
MOV #340, @APWRVEC +2 SIPRI 0:7 
MOV RO, =(SP) 7zPUSH RO ON STACK 
MOV R1,-(SP) :ZPUSH R1 ON STACK 
MOV R2,-(SP) ;7PUSH R2 ON STACK 
MOV R3,-(SP) :zPUSH R3 ON STACK 
MOV R4,-(SP) 3;7PUSH R4& ON STACK 
MOV RS,-(SP) 7zPUSH R5 ON STACK 
MOV @SWR,-(SP) 37PUSH @SWR ON STACK 
MOV SP, $SAVR6 77 SAVE SP 
age ASPWRUP ,@APWRVEC ;;SET UP VECTOR 
HAL 
BR 72 7 HANG UP 
SD IRI RRR KERR EERE KEKE EERE EERE 
;POWER UP ROUTINE 
$PWRUP: MOV #SILLUP, tie { eaSET FOR FAST DOWN 
MOV SSAVR6, SP ET SP 
CLR SSAVR6 WAIT LOOP FOR THE TTY 
1$: INC $SAVR6 sWAIT FOR THE INC 
BNE 1$ OF WORD 
MOV (SP)+,aSWR 3zPOP STACK INTO @aSwWR 
MOV (SP)+,R5 :zPOP STACK INTO RS 
MOV (SP) +,R4 ;zPOP STACK INTO R4 
MOV (SP)+,R3 7zPOP STACK INTO R3 
MOV (SP)+,R2 :zPOP STACK INTO R2 
MOV (SP)+, *R1 ; ;POP fate INTO R1 
MOV (Sh) +, “RO :zPOP STACK INTO RO 
MOV sivundes. @APWRVEC igSET UP THE POWER DOWN VECTOR 
MOV #340, a#PWRVEC+2 : 0:7 
TYPE “REPORT THE POWER FAILURE 
$PWRMG: .WORD PWRMSG POWER FAIL MESSAGE POINTER 
MOV (PC) +, (SP) z :RESTART AT BEGIN 
$PWRAD : A ee BEGIN > RESTART ADDRESS 
$ILLUP: HALT 23 THE POWER UP SEQUENCE WAS STARTED 
BR 72 Se = oe THE wen DOWN WAS COMPLETE 
$SAVR6: 0 ;PUT THE SP HERE 
PWRMSG: ASCIE <15><12>/RESTARTING AFTER A POWER FAILURE/<15><12> 
EVEN 


-- 


SEQ 0078 


B 7 
CZ7VSA“B VS60 INSTRUCTION TEST PART 1 MACY11 30G(1063) 17-SEP-79 08:43 PAGE i6 
CZ7VSAB.P11 29-MAY=-79 10:10 ROUTINE TO SIZE MEMORY 


-SBTTL ROUTINE TO SIZE MEMORY 


REE E REE E EEE EERE REE ERREE REET E REET E Ree ee 
D*CALL: 
;* JSR PC,$SIZE 


: RE TURN 
‘ eSLSTAD WILL CONTAIN THE LAST AVAILABLE MEMORY LOCATION 


026502 010046 $SIZE: MOV RO,-(SP) 77 SAVE RO ON THE STACK 
MOV R1,-(SP) : SAVE R1 ON THE STACK 
MOV a esie aca * mana PRESENT ERROR VECTOR PS & PC 
Aa @FERRVEC+2,-(SP 
026516 10600 SP,RO "SAVE THE STACK POINTER 
eh od | THe "ERRVEC PS TO THE PRESENT P 
026520 pe # OLD PSW AND PC ON STA 
000006 (SP)+, QFERRVEC +2. s SAVE THE PSw IN SPERRVEC #2 
026546 000004 .@#ERR VEC SET FOR TIMEOUT 
020000 20000 SR IRST ADDRESS 
1) ;zTEST THIS ADDRESS 
77 STEP TO NEXT ADDRESS 
zz TRY ANOTHER 
: «DROP BACK 
RO,S 7zRESTORE THE STACK 
(SP)+, @FERRVEC +2 + ; RESTORE ERROR VECTOR 
(SP) +, AAERRVEC 
026576 R1, $LSTAD :zLAST ADDRESS 
(SP)+,R1 7 RESTORE R1 
vole ; RESTORE RO 


RTS P 
026576 000000 $LSTAD: .WORD 0 7:CONTAINS THE LAST ADDRESS 


( 
( 
( 
( 
( 
( 
( 
( 
< 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 


ao a a a sh a a a 9 Ss 
ee ed ed i eh, ete 
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CZVSAB.P14 29-MAY=79 10:10 ROUTINE TO SIZE MEMORY ‘ SEQ 0080 
2447 L. = ¥ ‘. 
“" -SBTTL TYPE ROUTINE ; eB 
( 
(2) ® RRA AAR AER EEE RRR EEREREEEREEKEEERERKERERERREEH 
(1) + *ROUT INE TO TYPE ASCIZ MESSAGE. oF ta MUST TERMINATE WITH A O BYTE. 
(1) > *THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED 
(1) ;*NOTE1: SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 
(1)  *NOTE2: SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
We ; *NOTES: $FILLC CONTAINS THE CHARACTER TO FILL AFTER. 
(1) TeCA LL: 
(1) gel) ace A TRAP INSTRUCTION 
4h an YPE »-MESADR 3zMESADR IS FIRST ADDRESS OF AN ASCIZ STRING 
(1) t* 
(1) te TYPE 
(1) ;* ME SADR 
aie i* 
(1) 
(1) 026600 105737 001157 $TYPE: TSTB STPFLG 2i1S THERE A TERMINAL ? 
(1) 026604 100002 BPL 1$ :BR IF YES 
(1) 026606 000000 HALT > HALT HERE IF NO TERMINAL 
(1) 026610 000430 BR 3$ 3 sLEAVE 
(1) 026612 010046 1$: MOV RO,-(SP) ' 33 SAVE RO 
(1) 026614 017600 000002 MOV a2(SP) ,RO “te ADDRESS OF ASCIZ STRING 
(1) 026620 122737 000001 001222 CMPB MAPTENV, SENV UNNING IN APT MODE 
{1) 026626 001011 BNE 62$ ENO. GO CHECK FOR APT CONSOLE 
(1) 026630 132737 000100 001223 BITB HAPTSPOOL,SENVM : SPOOL MESSAGE TO APT 
(1) 026636 001405 BEQ 62$ ZINO,GO CHECK FOR CONSOLE 
(1) 026640 010037 026650 MOV RO,61$ sit ME SSAGE page bag FOR APT 
(1) 026644 004737 025012 JSR PC,$ATY3 ;SPOOL MESSAGE TO AP 
(1) 026650 000000 61$: -WORD 0 ::MESSAGE ADDRESS 
(1) 026652 132737 000040 001223 62$: BITB MAPTCSUP ,SENVM :TABr ore SUPPRESSED 
(1) 026660 001003 BNE 60$ 7YES,SKIP TYPE OUT 
(1) 026662 112046 2$: MOVB (RO) +,-(SP) : : PUSH CHARACTER TO BE TYPED ONTO STACK 
(1) 026664 001005 BNE 4$ BR IF IT ISN'T THE TERMINATOR 
(1) 026666 005726 TST (SP) + STF TERMINATOR POP IT OFF THE STACK 
(1) 026670 012600 60$: MOV (SP)+,RO 7 RESTORE RO 
(1) 026672 062716 000002 3$: ADD #2, (SP) ; ADJUST RETURN PC 
(1) 026676 000002 RTI 7 RETURN 
(1) 026700 122716 000011 4$: CMPB #HT , (SP) 7; BRANCH IF <HT> 
(1) 026704 0014 BEQ $ 
(1) 026706 122716 000200 CMPB ACRLF , (SP) ; BRANCH IF NOT <CRLF> 
(1) 026712 001006 BNE 5$ 
(1) 026714 005726 TST (SP) + ;PQOP  <CR><LF> AY 
(1) 026716 104401 TYPE TYPE A CR AND L 
(1) 026720 001177 $CRLF 
(1) 026722 105037 027056 CLRB SCHARCNT :3CLEAR CHARACTER COUNT 
(1) 026726 000755 BR 2$ 32GET NEXT CHARACTER 
(1) 026730 004737 027012 5$: JSR PC,$TYPEC a TYPE THIS CHARACTER 
(1) 026734 123726 001156 6$: CMPB $SFILLC, (SP)+ 71S IT TIME ote FILLER CHARS. ? 
(1) 026740 001350 BNE :1F NO GO GET NEXT CHAR 
at 026742 013746 001154 MOV $NULL ,- (SP) :iGeT & OF FILLER CHARS. NEEDED 
(1) 026746 105366 000001 7$: DECB 1(SP) ; sDOES A NULL NEED TO BE TYPED? 
(1) 026752 002770 BLT 6$ ;BR IF NO--GO POP THE NULL OFF OF STACK 
(1) 026754 004737 027012 JSR PC, ,$TYPEC ::GO TYPE A NULL 


CZVSA-8 VS60 INSTRUCTION 4? PART 1 
CZVSAB.P11 29-MAY-79 10:10 


001003 
027036 105037 027056 
000406 
27044 122766 000012 000002 


(1) 026760 105337 027056 

(1) 026764 000770 

(1) 

(1) 

(1) 026766 112716 000040 

(1) 026772 004737 027012 

(1) 026776 132737 000007 027056 
(1) 027004 001372 

(1) 027006 005726 

(1) 027010 000724 

(1) 027012 105777 152132 

(1) 027016 100375 : 
(1) 027020 116677 000002 152124 
(1) 027026 122766 000015 000002 
a) 

(1) 

1) 

(1) 

(1) 

1) 

(1) 

(1) 

449 


Mm 


MACY11 30G(1063) 
TYPE ROUTINE 


DECB 
BR 
;HORIZONTAL TAB 


8$: MOVB 
9$: JSR 


BR 
$TYPEC: TSTB 


BR 
1$: CMPB 


B 
$SCHARCNT : . WORD 
$TYPEX:. RTS 


, 
17=SEP=79 08: 


SCHARCNT 
7$ 


PROCESSOR 
aw’ (SP) 


PC, $TYPEC 


#7, $CHARCNT 

9$ 

(SP) + 

a$TPS 
$STYPEC 


2(SP) ,a$TPB 
a ,2(SP) 


ALF ,2(SP) 
$TYPEX 
(PC)+ 

PC 


Oo 


43 PAGE 17-1 


;:D0 NOT COUNT AS A COUNT 
ooP 


; REPLACE TAB WITH SPACE 
: TYPE A SPACE 


‘POP SPACE OFF STACK 
33GET NEXT CHARACTER 
3ZWAIT UNTIL PRINTER IS READY 


;;LOAD CHAR TO BE TYPED INTO DATA REG. 


3:1S CHARACTER A CARRIAGE RETURN? 
wre IF NO 
3 YES=-CLEAR CHARACTER COUNT 


EXIT 
SHS one vee" LINE FEED? 


;;COUNT THE CHARACTER 
[CHARACTER COUNT STORAGE 


SEQ ‘0081 


E 7 
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C2VSAB.P11 29-MAY=79 10:10 ¢. TRAP DECODER SEQ 0082 
2451 .SBTTL TRAP DECODER 
2 <F MBBS RSSAA£2 £222 222 SR SESERR ESSE ESSERE RARER ESR R ARSE SARS RSA SSR SARS SS SG 
1 *THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE ‘'TRAP’’ INSTRUCTION 


:*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
;*OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
:*GO TO THAT ROUTINE. 


027062 010046 STRAP: MOV RO, ~(SP) : SAVE RO 

027064 016600 000002 _ Mov = 2¢§P),RO ZIGET TRAP ADDRESS 
027070 005740 ¢ 1ST = =(RO) ;IBACKUP BY 2 

027072 111000 MOVB (RO) ,RO ::GET RIGHT BYTE OF TRAP 
027074 006300 ASL RO :POSITION FOR INDEXING 
027076 016000 027116 MOV -- $TRPAD(RO),RO INDEX TO TABLE 

027102 000200 RTS —- RO ::GO TO ROUTINE 


3z THIS IS USE TO HANDLE THE ''GETPRI'' MACRO 


027104 011646 $TRAP2: MOV (SP) ,-(SP) 7:MOVE THE PC DOWN 
027106 016666 000004 000002 MOV 4(SP) ,2(SP) 3:MOVE THE PSW DOWN 
027114 000002 RT] ;gRESTORE THE PSW 


-SBTTL TRAP TABLE 


*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
;*BY THE '‘TRAP'' INSTRUCTION. 


ee Ne Ne NN Ne Nee ee ete es ie ie ie ie ee ew ee a eae ee 


: ROUT INE 
027116 027104 $TRPAD: .WORD $TRAP2 
027120 926600 $TYPE ;;CALL=TYPE TRAP+1(104401) TTY TYPEOUT ROUTINE 
027122 025634 $TYPOC ;;CALL=TYPOC TRAP+2(104402) TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
027124 025610 $TYPOS ;;CALL=TYPOS TRAP+3(104403) TYPE OCTAL NUMBER (NO LEADING ZEROS) 
027126 025650 $TYPON ;;CALL=TYPON TRAP+4(104404) TYPE OCTAL NUMBER (AS PER LAST CALL) 
027130 026036 $TYPDS ;;CALL=TYPDS TRAP+5(104405) TYPE DECIMAL NUMBER (WITH SIGN) 


BARR KR RRA A AAA AAA AAA AA AAA AA AAPA AAAROOOO 


Wn 3 WWWIWWWWNWW WWW WWW -39 3 2 9 Ss Ss Ss 2 HS 


Nw w 


ae) 


CZVSA-B VS60 INSTRUCTION TEST PART 1 
CZ7VSAB.P11 


027132 
027216 


031014 
031062 


031076 


29-MAY-79 


000001 


10:10 


051412 
047111 


050122 
002024 


047111 


=—f.\ 2 SS ey 


3 
020103 
001122 


, 
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ASCII MESSAGES SEQ 0083 
-SBTTL ASCII MESSAGES 

HEADER: .ASCIZ <15><12><12>/START OF CZVSA-B VS60 INSTRUCTION TEST PART 1/<15><12> 

EM1: -ASCIZ /MAINT. SWITCH REG/ 

EM2: eASCIZ /LOADING D.P.C. REG <STATIC>/ 

EM3: eASCIZ /LOADING MODE REG/ 

EMG: -ASCIZ /SEQUENCING DPC REG/ 

EMS: -ASCIZ /LOADING LINE TYPE REG/ 

EM6: -ASCIZ /LOADING INTENSITY LEVEL REG/ 

EM?: -ASCIZ /LOADING GRAPHPLOT INC REG/ 

EM10:  .ASCIZ /DISPLAY JUMP ABS TO AN ADRS/ 

EM11:  .ASCIZ /DISPLAY JUMP REL TO AN ADRS/ 


EM12: -ASCIZ /DISPLAY JSR ABS TO AN ADRS/ 
EM13: .ASCIZ /DISPLAY JSR REL TO AN ADRS/ 
EM14:  .ASCIZ /LOADING X POS REG/ 

EM15:  .ASCIZ /LOADING Y POS REG/ 

EM16: .ASCIZ /BUS TIME-OUT ER/ 

EM17:  .ASCIZ /CHAR TERMINATE ER/ 

EM20:  .ASCIZ /Y DYNAMIC OFFSET ER/ 

EM21:  .ASCIZ /X DYNAMIC OFFSET ER/ 

EM22: .ASCIZ peg? = yh Hg 


: -P.U. NAME REG ER/ 
EM24: eASCIZ /SEARCH CODE OF ASSOC. NAME REG ER/ 
EM25: ~ASCIZ /VECTOR SCALE ER/ 
EM26: eASCIZ /CHAR SCALE ER/ 


nth -ASCIZ /BLINK LOGIC ER/ 


M30: eASCIZ /ITALIC LOGIC ER/ 

EM31: .ASCIZ /MENU LOGIC ER/ 

EM32:  .ASCIZ /RESET doy F TO CLEAR A REG/ 
EM33:  .ASCIZ /STOP INTR ER/ 

EM34: .ASCIZ /L.P. FLAG ER/ 

EM35:  .ASCIZ /COLOR LEVEL ER/ 

EM36:  .ASCIZ /ITENSITY ENABLE - CONS 0 + 1 ER/ 


EM37: eASCIZ /INTERNAL STOP FLAG FAILED TO SET/ 

EM40: -ASCIZ /INTERNAL STOP FLAG FAILED TO CLEAR/ 

EM41: -ASCIZ /WORD 0-1-2 INDICATOR ER/ 

EM42: -ASCIZ /L.P. INTR ENABLE - CONS 0 + 1 ER/ 

EM43: -ASCIZ /L.P. SWITCH INTR ENABLE ~ CONS 0 + 1 ER/ 

EM44: -ASCIZ /DISPLAY BUSY ER/ 

EM45: eASCIZ /EXTERNAL STOP LOehe ER/ 

EM46: .ASCIZ /TIME-OUT INTR 

EM47: eASCIZ /NAME MATCH INTR. ER/ 

EMSO: eASCIZ /L.P. FLAG INTR ER/ 

EMS1: eASCIZ /STACK PTR ER/ 

DH1: erly ZERRPC  TSTNUM BUSADR EXPCT RCVD/ 
V 


. EVEN 
DT1: SERRPC, TSTNUM, $BDADR , $GDDAT , $BDDAT , 0 


FLARE EERE REAR EKEERE REE ERAEAKRAEERERERAERERREAAEAAEERERERERAERREA ERED 


THIS IS THE WORKING AREA FOR ALL VS60 NPR'S CINSTRS & DATA) 
FROM HERE TO THE END OF 28k 


SL RAMA RAAEAEEERERERERAEAROREAREAREARKEAERERAERAERERE AERA ERR ERE ES 


BUFFER: 0 
END 


= 





G 
T PART 1 MACY11 30G(1063) 17=SEP=79 08:43 PAGE 20 


CZ7VSA-B VS60 INSTRUCTION TES 
CZ7VSAB.P11 29=MAY=79 10:10 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0084 
ABASE = 172000 19 32 
ACDW1 = 000000 32 
ACDW2 = 000000 32 
ACPUOP= 000000 
ADDWO = 000000 32 
ADDW1 = 000000 32 
ADDW10= 000000 32 
ADDW11= 000000 32 
ADDW12= 000000 32 
ADDW13= 000000 32 
ADDW14= 000000 32 
ADDW15= 000000 32 
ADDW2 = 000000 32 r 
ADDW3 = 000000 32 
ADDW4 = 000000 32 
ADDWS = 000000 32 
ADDW6 = 000000 32 
ADDW7 = 000000 32 
ADDW8 = 000000 32 

DwW9 = 000000 32 
ADEVCT= 000000 32 

EVM = 000000 32 
AENV = 000000 32 
AENVM = 000000 32 
AFATAL= 000000 32 
AMADR1= 000000 32 
AMADR2= 000000 32 
AMADR3= 000000 32 
AMADR4= 000000 32 
AMAMS1= 000000 32 
AMAMS2= 000000 32 
AMAMS3= 000000 32 
AMAMS4= 000000 32 
AMSGAD= 000000 32 
AMSGLG= 000000 32 
AMSGTY= 000000 32 
AMTYP1= 000000 32 
AMTYP2= 000000 32 
AMTYP3= 000000 32 
AMTYP4= 000000 32 

002050 3644 892* 905* 906* 916* 928* 958* 987* 1014* 1028* 1029* 1048s 

APASS = 000000 32 
APRIOR= 000000 32 
APTCSU= 000040 24304 2448 
APTENV= 000001 24304 2431 2448 
APTSIZ= 000200 388 24304 
APTSPO= 000100 24304 2448 
ASWREG= 000000 32 
ATESTN= 000000 32 
AUNIT = 000000 32 
AUSWR = 000000 32 
AVECT1= 100320 - 204 32 
AVECT2= 000000 32 
BEGIN 002110 24 3884 400 2441 
BITO = 000001 174 
BITOO = 000001 174 


Le gens te eT 


H 7 
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CZ7VSAB.P11 29=MAY-79 10:10 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0085 

BITO1 = 000002 178 

BITO2 = 000004 178 

BITO3 = 000010 174 

BITO4 = 000020 174 

BITOS = 0 174 

BITOG = 000100 174 

B1TO7 = 000200 174 

BITO8 = 00 17#@ 2429 

BITO9 = 001000 174 2429 2431 

BIT? = 2 178 693 

BIT1C = 002000 174 2631 

BIT11 = 000 174 2429 

BIT12 = 010000 174 $94 706 723 239 

BIT13 = 020000 174 737 750 762 74 785 821 843 859 877 923 953 983 
1013 1025 103 1072 1084 1097 ilte 1123 1136 1151 1162 1173 1185 
1197 1210 1225 1238 1251 1267 1282 1331 1344 1358 137 1388 1402 
1420 1434 1451 1466 1483 1499 1514 1524 1541 1555 1572 1585 1602 
1615 1632 1645 1662 1675 1692 1705 1722 1737 1752 1766 1781 1797 
1817 1839 1859 1876 1888 1909 1933 1952 1972 1988 2004 2020 2037 
2067 2086 2106 2117 2135 2168 2191 2218 2380 2431 

BIT14 = 040000 17# 26429 

BIT15 = 100060 174 1270 1744 

BIT2 = 174 

BIT3 = 000010 178 1139 

BIT4 = 000020 174 1240 1255 

BITS = 0 174 

BIT6 = 000100 174 1346 

BIT7 = 000200 174 

BIT8 = 174 

BIT9 = 001000 174 1879 1882 

BPTVEC= 000014 17# 

BUFFER 031076 326 327 328 329 330 331 733* 751* 763* 775* 786 792 827 


3 990* 991* 992 1015* 1017 1030* 1031 1051* 1052* 1053 124* 1268* 
1274* = 1275 1283* 1284* 1285 1288* 1306* 1307 1325* 1359* 1360 1361* 1375* 
1376* 1377 1389* 1391 1392* 1404* 1406 1416* 1421* 1423 1424* 436* 1438 
1447* 1452* 1454 1455* 1467" 1468* 1469 1484* 1486 1493* 1502* 1515* 1516 
1526* 1528 1537* 1542* 1544 1545* 1558* 1559 1568* 1574* 1575 1576* 1588* 
1589 1598* 1604* 1605 1606* 1618* 1619 1628* 1634* 1635 1636* 1648* 9 
1658* 1664* 1665 1666* 1678+ 1679 1688* 1694* 1695 1696* 1708* 1709 1718* 
1724* = =1725 1726* 1738* 1739 1740* ah 1756* 1770* 1782 1783 1784* 1800* 


CNTR 002022 3354 
CONS 002052 3654 1529 1530 1547 1548 1560 1561 1578 1579 1590 1591 1608 1609 


CR = 000015 17# 2448 

CRLF = 000200 174 = 2448 

DBUF 002000 3264 739 752 764 776 791 822 826 1075* 1075 1085* 1087 1098* 
1099 1100* 1102 1113* 1115 1126 1137* 1138 1140* = =1141 1153" 1154 1164* 











I 
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CZVSA-B VS60 atonal Hg TEST PART 1 MACY11 30G(1063)_ 





CZVSAB.P11 29-MAY-79 10:10 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0086 
1165 1174* 1176 1186* 1188 1198* 1200 1211* 1213 1226* 1228 1239* | 1241 
1252* 1254 1269 1332* 1334 1345* 1347 1500* 1501 1753* 1755 1767" 1769 
978 2008 2024 2043 
DBUF1 002002 327H = =61212* = 1253* 
DBUF2 002 3284 
DBUF3 = =002 3298 
DBUF4 002010 3304 
DBUF 5 2012 3314 
DDISP = 177570 174 32 388 
DDONE 002070 3734 393 395 
DDONE1 002072 3744 
DELAY 002026 3374 2423 
DH1 031014 37 44 53 58 65 72 79 86 93 100 107 114 121 
128 135 142 149 156 163 171 178 185 192 199 206 213 
221 228 235 242 249 256 263 271 278 285 291 298 305 
312 319 24984 
DISPLA 001142 328 388* 2429% 2431* 
DISPRE 00017 244 388 
DLAY 024514 1979 1995 2011 2027 2046 2057 2073 24234 
002054 3664 849 850 86 868 881 883 88 893 903 907 914 918 
934 935 964 965 993 995 018 1020 1027 1033 1054 1056 1061 
DPC 002030 3564 389 692 695* 696 707 708* 712 722 725* 727 739* 752* 
764* 776* 784 791* 793 798* 800 805* 807 812* 814 820 826* 
831 839* 848* 866* 880* 933* 963* 992* 1017* 1031* 71053* 1075* 1087* 
1099* 1102* 1115" 11268 1738% 1141* 1154* 1165* 1176* 1188* 1200* 1213* 1214* 
1228* 1241% 1254% 1256% 1269*% 1275* 1285* 1287" 12898 1307* 1334* 1347* 1360* 
1362* 91377 = =1391% = 1393* 8 1406* 1423% 1425* 1438% 1454* 1456* 1469* 1471* 1486* 
1501* 1503* 1516* 1528* 1544* 1546% 15598 1575* 1577% 1589* 1605* 1607* 1619* 
1635* 1637* 1649% 1665* 1667* 1679* 1695* 16978 1709* 1725* 17278 1739 1741* 
1743* 1755* 1757 1758 1759 1769* 1771* 1772 1773 1783* 1785* 1786 1787 
1802* 1803 1804 1822* 1823 1824 1843* 1845* 1846 1848 1862* 1864* 1865 
1866 1880* 1895* 1896 1897 1916* 1917 1918 1938* 1940* 1941 1942 1957* 
1959* 1960 1961 1976* 1978* 1992 1994 2008* 2010* 2024* 2026* 2043% 2045« 
2053* 2055* 2068* 2070* 2072% 2090* 2096 2108* 2127* 2139%  2142% 2149% 2201* 
Stee. te 2238* 2240% 2259% 2262* 2264% 2288% 2291% 2293% 2342% 2345* 23478 
* * 
DSAVE 002014 3324 
DSAVE1 002016 3334 
DSWR = 177570 174 32 388 
DTi 031062 38 45 52 59 73 80 87 94 101 108 115 122 
129 136 143 150 157 164 172 179 186 193 200 207 214 
222 229 236 243 2 257 264 272 279 286 292 299 306 
313 320 25004 
EMTVEC= 0 174 388* 
EM1 027216 36 24574 
EM10 027454 85 24644 
EM11 027510 92 24654 
EM12 027544 99 24664 
EM13 027577 106 24674 
EM14 027632 113 24684 
EM15 027654 120 24694 
—EM16 027676 127 24704 
EM17 027716 134 24718 
EM2 027240 43 24584 
EM20 027740 141 2472a 
EM21 027764 148 24734 





: $f 
CZVSA-B _VS60 edna He TEST PART 1 MACY11 30G(1063) 17=SEP=79 08:43 PAGE 20-3 


C2VSAB.P11  29-MAY-79 10:10 CROSS REFERENCE TABLE -= USER SYMBOLS SEQ 0087 

EM22 030010 155 2474 

EM23 30030 16224754 

EM24 030053 170 2476" 

EM25 030115 177 ah 778 

EM26 = 030135 184 2478 

EM27 =: 030153 191  2479# 

EMS. «027274 50  2459# 

EM30 —- 030172 198 24808 

EM31 030212 205 =. 24814 

EM32 030230 212 © 24824 

EM33 30264 220 © 24834 

EM34 030301 207 = ORG 

EM35 030316 234 24854 

EM36 030335 241 24864 

EM37 030375 248 24874 

EMG 027315 57 2460# ‘ 

EM4O 304 255 24884 

EM41 030501 262 = 24894 

EM42 = 030531 270  2490# 

EM43 030572 277 491 

EMGG 3064 284 24924 

EM45 3066 290 24934 

EM46 = 030771 297 2494 

EM47 030732 304 2495 

EMS 27340 64 24614 

EMSO =: 030755 311 24964 

EM51 030777 318 © 24978 

EMG 7 71 = 2462H 

EM? —s- 027422 78 = 2463 

ERRVE C= 17#@ 388x = 417e 418k «= 428 = 429% 2429% 2445 
S = eeeeee U 24 2451 

HEADER 027132 409 24554 

HT = 000011 17# 2448 

IOTVEC= 00020 17# 388x 

KIPARO= xeeeee U 2445 

Fo = 12 17# 2448 

LPVCT 002074 3764 

LPVCT1 002076 3778 

NAMEVT 002104 3824 

NAMEV1 0021 3834 

PIRQ = 177772 17# 

PIRQVE= 000240 17# 

PRO = 000000 174 

PR1 = 000040 17# 

PR2 = 000100 17 

PR3 = 000140 17 

PR4 = 000200 17 

PRS = 000240 17# 

PR6 = 000300 174 

PR7 = 000340 174 

PS = = :177776 17# 

PSW = 177776 17# 410% 924" 954% 1026* 1040* 1055* 1298% 1308* 2118* 2136* 21708 2178 

2192% . 2200* 2219% = 2231% = 2.255% = 2.279% = 2296 = 2333* = 2350" 2409 

PWRMSG 026434 2441 2442 

PWRVEC= 000024 17# 388% = 24418 

RESTRT 002472 25 407 410# 2403 


K 7 ; 
T PART 1 MACY11 30G(1063) 17-SEP-79 08:43 PAGE 20-4. ™” 


CZVSA-B VS60 INSTRUCTION TES 
C2VSAB.P11  29=MAY-79 10:10 CROSS REFERENCE TABLE -= USER SYMBOLS SEQ 0088 
RESVEC= 000010 178 | 
RLO 002040 360" 560 562" 563 572 576* 577 583" 599 601* 603 711* 2199 
* 

RSTVEC 024454 402 1069 1328 2188 2213 2330 2377 2409" 

SETUP? 002360 389" 

SETUP2 002370 391" 394 

SETUP3 002420 3984 = 401 

SIZE 002020 334" = G04* = G05* = 824 828 

SREGO 002032 3574" = 736 741 749 754 761 766 773 778 +1076 1077 1088 1089 
Vis 9908. 0 oa ee 88 a ee ee aie 
117% 1169 #1190 1201 1202 1216 1217 1228 1250 1262 1243 = 1257 «1258 
126 1271 te7e eee ee eee Se le 28S a 

SREG1 002042 318 461335 «= 1836.—s«d1348~=—(«1349°=S's«d1357~—=Ctés«*d1:36G402=Ss«*d378~=—Ss«1379)2Ss«'13942=S «1395. «1407 = «1408 
1426 1427 1488) 460 SE SE eR lea 2098 = 2105-2111 
2120 = 2122 = 2123. 2128)S2141* = 214321442150) 2158 = 2160® §= 2162 2171S 2177 
2179-2184 2197 = 2203. = 2208 = 217) 225 

STACK = 001100 17# 388 411 

STKLMT= 177774 17# 

STKPT 002062 369% 586 589* 590 647 649% 651 658 660* 661 670 672* 673 


STKVAL (92056 3674 
SWR 601140 324 388* 2399 2429 2431 2441* 
SWREG 000176 248 388 
SwO = 000001 17# 
SwOO = 000001 174 
SwO1 = 000002 17# 
SWO2 = 000004 17# 
SwO3 = 000010 174 
SwO4 = 000020 174 
SWOS = 000040 174 
SWO6 = 000100 174 
SwO7 = 000200 17# 
SwO8 = 00 174 
SwO9 = 001000 17# 
Syl os 2 174 
SW10 = 002000 174 
SWw11 = 000 174 
SW12 = 010000 174 
Sw13 = 020000 174 
SW14 = 040000 174 
SW15 = 100000 174 
SW2 = 000004 174 
SW3 == 000010 178 
SW4 = 000020 174 
SWS = 000040 178 
SW6 = 000100 174 
SW7 = 000200 174 









CZVSA-B VS60 INSTRUCTION TEST PART 1 
CZVSAB.P11 29-MAY=79 10:10 


= 001000 174 
TBITVE= 000014 174 
TERMCH 002060 rey 433 
TIMEVT 002100 3794 
TKVEC = 174 
TMEVT1 002102 3804 
TPVEC = 000064 174 
TRAPVE= 000034 17# 386* 
TRTVEC= 000014 174 
TSTNUM 002024 3364 2431* 
TST1 002512 4154 
TST10 003362 5124 
TST100 013164 1367 13714 
TST101 013302 13874 





MACY11 30G(1063) 





L 
17-SEP-79 08:43 PAGE 20-5 


CROSS REFERENCE TABLE == USER SYMBOLS 


437* 438 


2500 


14194 


447 450* 451 461 


463* 


464* 


465 


638 


SEQ 0089 


640* 


= . 
Sie 


a, 





CZVSA-8 VS60 ated Ee TEST PART 1 MACY11 30G6(1063) 17-SEP-79" 08:43 PAGE 20-6 sins 


CZVSAB.P11 29-MAY=-79 10:10 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0090 
TST147 020740 1998 20024 
TST15. 004060 5854 

TST150 021044 2014 20184 
TST151 021150 2030 

TST152 021336 2051 2060 20644 
TST153 021474 2083 

TST154 021612 2099 21044 
TST155 021710 2113 21164 
TST156 022032 2129 21344 
TST157 022200 2148 2151 21564 
TST16 004156 5984 

TST160 022262 2163 21674 
TST161 022432 21908 

TST162 022624 22164 

TST163 022732 2227 22308 
TST164 023124 2251 22544 
TST165 023316 2275 22784 
TST166 023656 23328 

TST167 024162 23798 

TST17 23 604 6074 
TST170 024310 23984 

TST2 002614 4314 

TST20 004302 613 6164 
TST21 004354 622 6254 
TST22 004450 634 6374 
TST23 522 643 6464 
TST24 004602 653 6564 
TST25 676 6694 

TST26 030 684 6914 
TST27 005126 700 7044 
TST3 002710 4454 

TST30 005244 7 7214 
TST31 =©005324 728 7354 
TST32 005420 744 7484 
TST33 §=005514 757 7604 
TST34 005610 769 7724 
TST35 5704 781 7834 
TST36 =. 006134 797 804 811 816 8194 
TST37 © ©006272 835 838 8424 
TST4 003010 4604 

TST40 006410 8584 

TST41 006534 8764 

TST42 006622 884 8874 
TST43 72 9024 

TST44 «007012 91 9134 
TST45 7 91 9224 
TST46 =—007310 9524 

TST47 75 9824 

TST5 3 467 4704 
TST5O0 =©007750 10124 

TST51 010044 1021 10244 
TST52 010154 10384 
TST53 ~=—010402 10714 

TST54 010476 1080 10834 
TST55 §=©010572 1092 10964 


TST56 =©010702 1107 11114 


CZVSA-B _VS60 Laced ALS PART 1 


CZ7VSAB.P11 
TSTS7. =: 010774 
TST6 003162 
TST60 011070 
TST61 1200 
TST62 4 =©011266 
TST63 =011354 
TST64 011450 
TST6S 011544 
TST66 §=©011640 
TST67 3 3=—011746 
TST7 3266 
TST70 12040 
TST71 =: 0012134 
TST72 §=©012242 
TST73 = 012354 
TST74 012476 
TST75) =: 012672 
TST76 = 012.764 
TST77 013060 
TYPDS = 104405 
TYPE = 104401 
TYPOC = 104402 
TYPON = 104404 
TYPOS = 104403 
XDOF F 2044 
XPOS 002034 
YDOF F 204 
YPOS 002036 
Z7DOF F 2 
ZPOS 002064 
$APTHD 001000 
SASTAT= *xeene 
$ATYC 025030 
SATY1 025 
$ATY3) 025012 
S$ATY4 025022 
$AUTOB 001134 
SBASE 001256 
$BDADR 001122 
#BDDAT 001126 


29-MAY=-79 1 


WOOVIW— O@OOA —-WO 
® ¥ 


Monon Sr 
Wo 


2814 


2431 


MACY11 30G(1063) 
CROSS REFERENCE TABLE == USER SYMBOLS 


2434 


N 7 
17-SEP-79 08:43 PAGE 20-7 


2437 


2438 


2441 


519 
1519 
490 
2058 
631 


2448 © 


526* 
1971 


497* 
2081 


24514 


548* 
1980 


533* 
2082 


608 
1987 


617 


610* 
1996 


619* 


612 
2036 


621 


SEQ 0091 


628* 
2047 


629* 


CZVSA-B VvS60 INSTRUCTION TEST PART 1 
CZ7VSAB.P11 29-MA 


# 
& 


$FILLC 
SFILLS 


001172 
001262 


Y¥=79 10:10 


Oo 

w 

™N 
= 


— — ss SS 


WONAUSWWIR oO” 
OL 

SRS — 

see see 2s 


SO - Wh @O-w 
WU OMONO 


388 


2431 


MACY11 30G(1063) 


B 8 
17-SEP-79 08:43 PAGE 20-8 


CROSS REFERENCE TABLE -- USER SYMBOLS 


2434 


2431 


2431 
2430 


24351* 
2429* 
2434 


2429 


944% 
0 


NONQNNY  @ Ss SS es 


2448 


2448 


2448 


2500 


2431 


SES 


967 


971* 


972 


ae 
—o 
OWN 
¢ 


aofku 
CoO Ocor 
see 


an eh eh weed a ee end ed ed dh od 
WONAUIS SW 
a 
ont 
a 


‘Oo 
2) 
N 


974* 
7 


0 
2 
2 
3 
4 
4 
5 
65 
7 
8 
0 
1 
2 
3 


— 
OWS & 
wooo onrwd 
» eee 


NONMORON — @ @ R R  O e 
a 
NM 
» 


we Hb bt es 2) 2 4 2 2s 2 





SV LasS 
iaSle +) met 
a * ce 


eet. 
oOo > 
WrNO 

» » 


C 8 
CZVSA-B S60 INSTRUCTION TEST PART 1 MACY11 30G(1063) 17=SEP=79 08:43 PAGE 20-9 


CZVSAB.P11 29-MAY=79 10:10 CROSS REFERENCE TABLE == USER SYMBOLS 

SGDADR 001120 328 

SGDDAT 001124 328 434* 435 439 442s 448* 452 456* 457* 462* 
477 480* 487* 488* “e 





78* 79 985* 986* 987 989* 997 999* 10 

1034 1046* 1047* 1048 1050* 1066* 1067 1074* 1079 1086* 
1114* 1119 1125* 1130 1139* 1145 1152 1153 1163* 11€4 
1192 1199* 1204 1215* 1219 1227* 1232 1240* 1245 1255* 
1286* 1293 1300* 1321 1333* 1338 1346* 1351 1363* 1366 
1384* 1390* 1397 1405* 1410 1414% 1422% 1429 1437* 1442 
1470* 1475 1485* 1490 1494x 1504* 1507 17% Were  753e 
1557* 1563 1566* 1573*% 1587* 1593 1596* 1603* 1617" 1623 
16 1656* 1663* 1677* 1683 1686* 1693* 1707* 1713 1716* 
1754* 1756 1760 1768* 1770 1774 1780* 1784 1788 1792* 
1812* 1825 1830* 1835* 1841* 1849 1854* 1861* 1863 1867 
1898 1903* 1904* 1905* 1919 1924* 1929* 1935* 1943 1948* 
1965* 1967* 1977* 1981 1993* 1997 2009* 2013 2025* 2029 
205 2076* 2087* 2097% 2109% 2112 2121* 2122 2130" 2137 
2172* 2198* 2210 2220* 2226 2233%* 2244 2248* 2250 2257* 
Seon" 2311 2318* 2322% 2327 2338* 2365 2369% 2374 2381* 2391 2294% 2395 

$GET42 024410 24034 

SGTSWR= **exe08 | va 

SHIBTS 001000 304 

SICNT 0011 32H = =—2429* 

SILLUP 026426 24414 

SINTAG 001135 on 

SITEMB 001114 324 = 243.1% = 243K 

F 001200 324 431 2448 

SLFLG 025247 24304* 

SLPADR 1106 4 388* 2429* 

$LPERR 001110 324 388* 416* 432* 446* 471* 484* 500* 513* 529 544* 559* 571* 


587* 657* 705* 844* 860* 888* 925* 955* 984* 1041* 1373* 1403* 1435* 
1482* 1525* 1556* 1586* 1616* 1646* 1676* 1706* 1796* 1816* 1844* 1858* 1889* 


SLSTAD 026576 404 1780 24454* 
R1 001234 324 
$MADR2 001240 324 
SMADR3 001244 324 
SMADR4 001250 32n 
$MAIL 001202 30 328 388 415 431 445 460 470 483 499 512 528 543 
558 570 585 598 607 616 625 63 646 656 669 691 7 
721 735 748 760 772 783 819 842 858 876 887 2 913 
922 952 982 1012 1024 1038 1071 1083 1096 1111 1122 1135 1150 
1161 1172 1184 1196 1209 1224 1237 1250 1265 1281 1330 1343 1356 
1371 1387 1401 1419 1433 1450 1465 1481 1497 1512 1523 1540 1554 
1571 1584 1601 1614 1631 1644 1661 1674 1691 1704 1721 1735 1751 
1765 1779 1795 1815 1838 1857 1875 1887 1908 1932 1951 1970 1986 
2002 2018 2035 2064 2085 2104 2116 2134 2156 2167 2190 2216 2230 


CZVSA-B_ VS60 eda AF 3 PART 1 


CZVSAB.P11 


SOCNT 026032 
SOMOD' 6 


$QUE 

SRDCHR= *x*%a%n 
SRDDEC= *exxee 
SRDLIN= ***%%% 
SRDOCT= x*xe%%% 


SR2A = *teene 
SSAVRE= *«xxxK% 
SSAVR6 026432 
Bee see 
000037 


$SIZE 026502 
$SSTUP = 177777 
$SVLAD 024732 
$SVPC = 000210 

= 167400 


29-MAY-79 1 


cccc 


2254 
328 


528 
691 


2278 


13 
543 
704 


MACY11 30G6(1063) 


2332 = 2379 
4454 4604 
6164 6254 
7834 8194 

10384 10714 


2403* 2429 
2448 
2403 2429 


22 32 
558 acy 
721 735 


D 
17=SEP=79 08: 43 PAGE 20-10 
CROSS REFERENCE TABLE == USER SYMBOLS 


2398 


2431 


388 
585 
748 


2429 


415 
598 
760 


2431 


431 
607 
772 


2448 


445 
616 
783 


460 
625 
819 


470 
637 
842 


485 
646 
858 


499 
656 
876 


SEQ 0094 


512 
669 
887 














CZVSAB.P14 


SSWREG 001224 
SWRMK= 000000 
STESTN 001206 


STIMES 001166 


$TKB 001146 
$TKS 001144 
$™N = 000171 


025634 


CZVSA-B VS60 INSTRUCTION TEST PART 1 
29-MAY-79 10:10 


2403* 


2451 


MACY11 30G(1063) 


2429 





4504 


2431 


E 8 
17=SEP=79 08:43 PAGE 20-11 
CROSS REFERENCE TABLE -- USER SYMBOLS 


22784 


CZVSA-B vS60 allo He Mi 2 PART 1 


CZVSAB.P11 


025650 


000000 
026033 


wigeke 


031100 


= weaeree 


= 001000 


MACY11 306‘ 1063) 


24378 = 2451 
24378 = 2451 


324 396 1042 1301 2173 2193 


c4a 27a 294 304 324 $88 
24994 


17=SEP=79 08:43 PAGE 20-12 
CROSS REFERENCE TABLE == USER SYMBOLS 


2280 2334 


2403 2429 


2411 


24304 


243) 


24344 


24384 


SEQ 0096 


2441 


CZ7VSA-B VS60 INSTRUCTION TEST PART 1 
CZ7VSAB.P11 10:10 


SETPRI 
SETTRA 
SETUP 
SKIP 


29=MAY=79 1 


MACY11 30G(1063) 
CROSS REFERENCE TABLE == MACRO NAM 


G 8 
17=SEP=79 08: ne 


_ 


H 8 
CZVSA=B VS60 INSTRUCTION TEST PART MACY11 30G(1063) 17=SEP=79 08:43 PAGE 21-1 
CZVSAB.P11 29-MAY=79 10:10 CROSS REFERENCE TABLE == MACRO NAMES 


1775 1789 1809 1829 1853 1871 1883 1902 1 
2051 2060 2078 2083 2099 2113 2129 2148 2 


SWRSU 174 3884 
TRMTRP 24514 

TYPBIN 174 

TYPDEC 174 = §=©2403 
TYPNAM 174 

TYPNUM 17# 

TYPOCS 174 

TYPOCT 17# = 2434 


SSESCA 174 

SSNEWT 174 415 431 445 460 470 483 499 512 528 
607 616 625 637 646 656 669 691 704 721 
819 842 858 876 887 902 913 922 952 982 
1096 1111 1122 1135 1150 1161 1172 1184 1196 1209 
1297 1330 1343 1356 1371 1387 1401 1419 1433 1450 
1540 1554 1571 1584 1601 1614 163i 1644 1661 1674 
1765 i779 1795 1815 1838 1857 1875 1887 1908 1932 
2035 2064 2085 2104 2116 2134 2156 2167 2190 2216 


$$SET 24514 
S$SETM 3884 


$$SKIP i7a 467 604 613 622 634 643 653 684 700 
781 797 804 811 816 835 838 884 910 919 
1120 1131 1146 1158 1169 1181 1193 1205 1220 1233 
1352 1367 1398 1412 1415 1430 1446 1461 1476 1508 
1597 1610 1627 1640 1657 1670 1687 1700 1717 1730 
1853 1871 1883 1902 1923 1947 1966 1982 1998 2014 
2113 2129 2148 2151 2163 2227 2251 2275 
~EQUAT 7a 17 
HE ADE 7# 13 
KT11 on 
SE TUP 84 387 
SWRH I on 22 
SWRLO 22a 
$ACT1 10a 7 
$APTB 104 324 
$APTH 104 
$APTY 104 2430 
$CATC 7a 4 


CZ7VSA-B VS60 INSTRUCTION TEST PART 1 MACY11 30G(1063)_ 17=SEP=79 08:43 PAGE 21-2 
CZVSAB.P11 29-MA CROSS REFERENCE TABLE == MACRO NAMES 





. ABS. 031100 000 CON RW ABS @i =! 


ERRORS DETECTED: 0 


CZ7VSAB,CZ7VSAB/ CRF =CZVSAB 
RUN-TIME: 36 23 2 SECONDS 
RUN-TIME RATIO: 134/62=2.1 
CORE USED: 26K (57 PAGES) 


